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FOREWORD 


Unbelievable! we knew that the VZ-200 would prove to be one of 
the best value for money computers available, and we are happy 
that thousands and thousands of our customers have agreed with 
us. 


Since the release of the first book of programs, We have seen 

an incredible increase in the amount of both software and 

hardware now available for this great-new machine! Exciting new 
. - Oe. a — 

products like the @riater=phoreer7z(Cat no. X 7208make the 

VZ-200 an even better computer fon the -mevice—atid expert 


programmer alike. 





We have received many (requests from a of the VZ-200 who 
would like to have some Targér programs that can take advantage 
of the (6K RAM Module((Cat no. X 7205)\ So in this book we have 
included four Tongér program Tat Ww show you what you can 
do with the increased memory on your VZ-200. 

We hope that you will enjoy entering the programs contained 
within this book. They were chosen to give you many haurs of 
education and enjoyment. 


~ 


Have Fun! 


Dick Smith Blectronics 
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BATTLESHIPS 


Can you destroy the VZ-200 battle fleet before you run out of 
ammunition? You can find out with the help of this program. 


INSTRUCTIONS 
The arrow keys will’ move you around the battle zone and the F 
key will fire your guns. On the right of the screen your VZ-20G 


will keep track of the numbers of enemy ships remaining and 
even their size! 


Remember, the enemy ships can be vertical; horizontal, or 
diagonal on the battle grid. Good luck! 


1@ CLS: P=28672:CLEAR25G 
15 FSi * eS A OO a Sa lt le eam ly 
WhO cP WS 0M a Wa 
20 DING (LS,b3) yR (7 4) ps PU) oe 13 x1) «RB 7) 
23 DATA255,239,191,159:FORJ=1T04: READQ:L(J) =Q:NEXT 
26 DATA13,16,6,4,2,1:FORL=2T0O7:READQ:B(L)=Q:NEXT 
3@ PRINT@38,"B":PRINT@71,"A": PRINT@104,"T": PRINT@137,"T" 
35 PRINT@170,"L":PRINT@203,"E SHIPS.":PRINT@303,"B" 
49 PRINT@335,"Y * L":PRINT@4902,"A":PRINT@371,"L" 
45 PRINT@429,"M.J.H":FORX=1LTO1LOGO:NEXT 
50 CLS: PRINT@231,"SKILL LEVEL. (1-2): 
595 FORQ=1T043: PRINT@329 ,MIDS (AS,Q,13) ; :BS=INKEYS 
68 IFBS="l1"ORBS="2"THENL=ASC (BS) -48:GOTO8@ 
65 IFQ=43THENT=5@0ELSET=7@ 
7@ FORW=LTOT:NEXT:NEXT:GOTO55 
80 CLS:PRINT@227,"HOW MANY SHOTS..DO YOU WANT": 
85 PRINT@261,"(BETWEEN 58 AND 196) "; 
87 INPUTR:R1=R 


95 TFR<580RR>196THENPRINTQ@281," 7 "> :PRINT@282,"2"; :GOTO87 
129 CLS COLOR, : PRT MT "lca ne RNIN FF CRE = 1 TCH | 
13g PRINT "I lt MO MEM TOPE HT mena 


149 COLORS FORM S37 O4¢S 7S TEPSS: PRINTS, me, Ee 7 
145 PRINT@5@0,"BATTLESHIPS." ° 

150 FRIMTHIIS. "ALRCRAR TG OPRIAT@I 45. "CRRR TER: 1g! 

160 PRIATEIP?. "BATTLE" FR IAT@e1 45 "SHIPS: 2 pe 

170 FPRINTREPS. "DESTROYERS: 3 BUC PRIWTRSOS?. "FRIGATES = o& By 
180 FRIHT@SES, "PRT RL" (PRIM THeS. UEOA TS: 4 ig" 

198 PRINT@468,"SHOTS";R;:DATAL,2,3,3,4 

195 FORE=7TO3STEP-1:READF: P(E) =F:FORG=1TOF 

218 A=RND (3) -2:B=RND (3) -2 

215 IFA=@ANDB=@THEN219 

216 C=RND(14)-1:D=RND(14)-1 

219 M=C:N=D 

220 FORX=1TOE 

225 IFM<@ORM>13THEN30@ : 
226 IFN<GORN>13 THEN 30@ 

230 IFZ(M,N) >OTHEN30@ 

232 M=M+A:N=N+B 

233 NEXT 

235 FORX=1TOE:Z(C,D) =E+(G/1@) :C=C+A:D=D+B: NEXT 








24G 
259 
Z55 
26G 
38D 
361 
365 
3 2G 
339 
B20 


345 
35G 
36G 
379 
389 
385 
39@ 
499. 


415 
420 
439 
44g 
45¢ 
46G 
47G 
48@ 
485 
487 
49@ 
495 
496 
497 
498 
SOO 
519 
J15 
52 
Den 
539 
689 
769 
785 
718 
LS 
720 
73@ 


! 























74G 
750 
76@ 


NEXT: NEXT 
[PL=1ORL=3THEN391ELSEFORX=1T05 

A=RND (14) -1:B=RND (14) -1 

TPZ (A,B) >OTHEN255ELSEZ (A,B) =2:NEXT:GOTO391 
X=E:NEXT:GOTO219 | | 

X=G0:Y=G \ 

POR ALS TOLS FOR Y te TOL: Pa oF) be" MEET: ME 
IFR=9THEN7O0@ 

AS=INKEYS 

PRINT@ (Y¥+1) *32+X+1,ZS (x,y) 
IFAS="S"THEN7@@ 

IFAS="F"THEN4QG 
IFAS="M"THENX=X-1: IFX<@THENX=13 
IFAS=","THENX=X+1:IFX>13 THENX=9 
TFAS="."THENY=Y-1: IFY<@THENY=13 
IPAS=" "THENY=Y+1:IFY>13THENY=gG 
PRINT@ (Y+1) *32+X4+1,"g" 
FORQ=1T05@ : NEXT: GOTO 329 

IFZ (X,Y) >1OTHEN329 
ReR-1:PRINT@473,R: 1FZ(X,Y) =2THENR=R-2: :GOTO69G 

IPS (X,Y) =OTHENZS (X,Y) ="X":Z (X,Y) =11:G0T032g 

TRIM TS Se a fF Se THER Sb be yt yee page 

TE IMTS 20 eof) Dee THEM Si ey OY oon pag 

DP LRT eo ea SP Se See TE Bei tat yt aoe pg 

TE IW TC 20 a tO ORG THERM SH be ae tye 

DRL a oY TERS tat yy aa pee 

PORJ=1704: POKE28672+ (Y+1)*32+X+1,L (J) sFORJ=1 T0600 :NEKT 
= 4 (X,Y) -INT(Z(X,Y)) :S=INT( (S+.61) *19) 

PeINT(Z(X,¥)) :R(T,S)=R(T,S) +1 : 
Z(X,Y)=Z (X,Y) +19 

IFR(T,S)=TTHEN495ELSE329 * 

Al=X-T+1:IFA1L<QTHENA1=9 

Bl=X+T-1:IFB1>13THENB1=13 

CL=Y-T+1: IFC1<@THENC1=9 

DL=Y+T-1:IFD1>13THEND1=13 

L=2Z (X,Y) :FORU=A1TOB1:FORV=C1TOD1 

se nogV) =LTHENZS (U,V) =CHRS (ASC (ZS (U,V) ) -128) 2 (U,V) =L+19 
PRINT@ (V+1) *32+U+1,2Z8 (U,V) 

NEXT: NEXT: P(T)=P(T) -1:FORW1L=7T03STEP-1 

PRINT@ (7-W1) *64+156,P(W1) 

NEXT? K=K+1: I FK=13THENCLS:GOTO815 : 990 ELSEGOTO32G 
PRINT@473,R:29 (X,Y) ="M":Z (X,Y) =12:GOT0329 


COLOR: PRINT, " FORUSS2TO44esTe pas 
PROINTRU . "M0" 5: PREM TOLLS MM: pape 
PRINT R40, "s ;COLORS 


PORX=6T013's FORY=9T013 :A=(Y+1) *324+X+14+28672 

cae (Xr¥) SLLANDZ (X,Y) <20THENPOKEA,B(INT(Z(X,Y))-19) +64 
(F4 (X,Y) <10ANDZ (X,Y) >1THENPOKEA ,B (INT (Z(X,¥))) 464 

LE'4 (X,Y) >2O0THENPOKEA,B(INT(Z(X,Y) -2)) 

LES (X,Y) =lL1THENPOKEA, 24 

IFZ (X,Y) =O@THENPOKEA,175 / 

NEXT: NEXT Fo 

PRINT@466,"PRESS <E> TO"; Ke 





> - —_ 








/.. 


YOU_FE 











‘ eA FE 7 mE @ 














S—DNOPHER 895_ PRINT@591," ESCAPE," 3; 


Deu es. "YOU SUNK THE WHOLE ENEMY FLEET. m 
PRINT@198,"IN";R1-R3"SHOTS YOU SUNK" © 
PRINT@228 ,K; "OF THE ENEMY'S FLEET." 

Z=K* (R1- R) 

PRINT@294, "you SCORED";Z;"POINTS.":FORX=1TO1OOO:NEXT 
PRINT@387,"D0 YOU FEEL LIKE ANOTHER }'; 
PRINT@424,"FLEET (Y OR N) 2"; 
BS=INKEYS: IFBS="Y"THENRUN 
IFBS="N"THENNEW 
GOTO85@ 











GRAND PRIX! aa 


Race your car around the track and try to miss the Oil slicks. 
If you can make it around the first track, there are “fst more 
waiting to be tried. Are you a good enough driver to beat the 

VZ-208 race tracks? VW. | Sur am ant, ole , 


\000 Pore Ut De 78795 224 bbe rr’ fob: 
5 GOTO38G00° / VAN 

9 P=5:S=@:T=] | 

18 MODE(1) . | 

15 POKE DBS ocean oe 67 -A*2, 195 : POKE28799-A*2 , 60: POKE28831-A*2, 69 

16 POKE28863-A*2,195:NEXT 

19 DP=9:X1=0:Y1=1:X=129:y=45 

27 COLOR2 , 9: FORC=6T0126:SET(C,@) :NEXT:COLOR3 

60 TP'TD=1THENTD=@ : FORZ=1T056:NEXTZ:GOTO9G 

61 RESTORE: FORJ=1T024 : READXX: NEXT 

62 PPE Gone ORK=O 106 : READXX : POKEJ*32+28704+K,XX:NEXT: NEXT 

8G ee poe SUB19 G0 ELSEIF T=2G0SUB290GELSEIFT=3G0SUB 3009 

81 TOT eee U4 OGG ELSEIF T=5GOSUB5G0GELSEIFT=6G0T07999 

83 cpr 22 FORA=116T0125STEP2:SET(A,43) :SET(A+1,44) :NEXT 

84 SET (126,43) 

99 COLOR2:SOUND25,4 

190 IFPEEK (28416) =255THEN149 

fig IFPEEK (28416) =253THENY1=1:X1=9:GoT014g — down 

115 TF PEEK (28416) =239THENY1=-1:X1=9:GOTO14g = Of 

120 TP PEEK (28416) =223 THENX1=-1:Y1=9:GOTO149 + Lat 

125 TP PEEK (28416) =247THENX1=1:Y1=¢ — right 

14@ RESET (X,¥) 3X=X+X1:Y=¥+¥1: IFPOINT(X,Y)=1THENG T(X,Y):GoT0145 

141 TOU? (X/¥) =2ANDY1=1THENT=T+1:S=S+INT(C) :GOTOLAG + 

142 IFPOINT (X,Y) =4THENSQOQOG 

143 GOTO1OOGG 

145 C=C-L: IFC<@THENRESET (X,Y) :GOTO199g9 

146 RESET(C,@8) :GoTOLgG 

148 conte J THENSOUND12,1:SOUND14,1:SOUND16,1:GOT015 : 

149 PEP HL DOR OND 8+ 1: SOUNDS , 1: SOUNDS, 1: SOUNDS, 1: SOUND7,1 

155 DOK EI ob ea a eso P*2 1195 xPOKE28799-P*2, 69: POKE28831-b*2, 69 

156 POKE28863-P*2,195 | VV — zee | 

168 GOTO1S5 Od — ' —>iJZ 

1800 POR bona y a os POKE287 7642 4W) POKE28808 , 48: POKE28849,48 em ae 

1605 POKE28872,252 Sr — 


V/) TALL 


a 


1819 PORA=9T063: SET (,A) :SET(127,A) :NEXT SoS 


1G2G FORA=9T039:SET(A,63) > SET (A+88,63) :NEXT 


1825 FORA=@T049:SET(A,8) :SET(A+78,8) :NEXT 

19390 PORA=41T086:SET(A,61) :SET(A,56) :NEXT 

1949 Sh2 (40,55) :SET (87,55) :SET (49,62) :SET (87,62) , 
‘ | 


105@ FORA=88T0195:SET(A,54) :NEX 

1055 PORA=61T066:SET(A,3Q) :NEXT 

1060 SET (ae ee gor FORA=217033: SET (A~1,AA+28) : SET (A+82, AA) 

1961 SET (A~1,AB) :AA=AA+1:AB=AB-1:NEX? 

197 PORA=31T041:SET(20,A) :NEXT 

198@ PORA=33T039:SET(A,18):SET(A,54) :NEXT 

199@ PORA=24T032:SET(45,A) :NEXT 

1110 TOUr Coes SOHE (73 yA) SEI (85 ,A46) 2S8P(S4 a) enexir 

1129 PORA=26T044:SET(115,A) :NEX? 

1136 PORASOTO42 SET (A+49,/A+19) :SET(A+45 ,A+32) : SET (A+50,A+9) :NEXT 


1135 


gor(57,63) 5 #56j63) 5€' Dy 


a 


ascend pa PORA=9TO5:SET(A+55,A+24) :NEXT 


0 FORA=49T079:SET(A,36) :NEXT _ 
1169 SA 232 FORA=196T0115:SET(A,AA) :AASAA=1:NEXT 


TERAA=5 : FORA=O7T05:SET(A+73,AA+8) :SBT (ATS ene 39) 


LETS SET(A+86 ,AA+13) :SET(A+67,AA+24) :AA=AA—1 = NEXT 
118@ SET (85,8) :SET (86,8) :SET(87,8). 

L19@ PORA=91T0192:SET(A,13) :NEXT 3 

1801 SOR eae e 210 POKE28799-P*2,4: POKE28831-P*2,g 
1892 POKE28863-P*2,Q:p=p-] 

1999 L=.3:RETURN 


c* L 2909 POR ronan go: POKE28 776,195 : POKE28898 , 12: POKE2884g , 48 


S| 


2005 POKE28872,255 
2019 PORA=196T0O119:SET(A,54) :NEXT 

2020 PORA=54T058:SET(119,A) :NEXT 

2039 FPORA=59T063:SET(100,A) :NEXT 

2040 PORA=58T059:SET(28,A) :NEXT 

2059 FORA=8TO19:SET(A,53) :SET(A,23) :NEXT 
2060 FORA=5T021:SET(A,43) :NEXT 

2080 PORA=104T0116:SET(A,13) :NEXT 

20990 PORA=116T0127:SET(A,18) :NEXT 

2100 PORA=115T0123:SET(A,26) :NEXT 

2110 COLOR4 : FORA=171T026:SET(A,51) :SET(A,45) :NEXT 


2120 See oO LO23 TSE? (A, 5G) tSET(A,A7) ©SET (A, 46) NEXT 
-> 2130 Po RAT 1STO24:SET(A, 48) :SET(A, 49) :NEXT: SET (25,49) 
N 


2990 L=.2:RETUR 

3800 POR bona 09+ POKE28776 , 195 : POKE28898 , 12: POKE28849,195 
3095 POKE28872,6@ | zo 
3010 PORA=92T0101:RESET(A,13) :NEXT _ 0) 
3928 FORA=13T035:SET(102,A) :NEXT | | WN 
3830 FPORA=8T042:SET(98,A) :NEXT SS 
3849 FPORA=59T086:SET(A,43) :NEXT Ne 
38590 PORA=39T091:SET(A,49) NEXT 

3860 PORA=3TO15:SET(34+A,28+A) :NEXT | 

3879 PORA=9TO9:SET(30+A,40+A) :NEXT ” 

3875 PORA=31T040:SET(39,A) :NEXT ‘ 

3080 RARE eee no oe? (914th 45+) sain (8604,,43400) SANMAART EEE 
389 SOM eee nn 29 70382 SET(A+2,21) :SET(A+2,22) SET (A+2,23) 

3091 OR A ead {SBE (A, 25) :SET(A,26) :NEXT: SET (39,24) :SET (39,25) 
3992 PORA=26T034:SET(A,27) :SET(A+5,20) =NEXT 

3893 PORA=29T031: FORAA=28T039:SET (‘A,AA) :NEXT:NEXT 

3998 L=.16:RETURN 

AQOG oR ee adr b2t POKE28776 , 60 : POKE28 898 , 204: POKE28849, 255 

4995 POKE28872,12 ; . 

491@ PORA=9TO59STEP2:SET(42,A) :NEXT 

4920 BET eden ee od SET (190, 374A) SET (102,37+A) SET (103, 374A) 


4821 Ser Tyo SL TA) FSET (197, 38+A) :SET (101, 36+A) :SET(193+a ,42) 


4922 SET (104,34+A) :SET(195,34+A) :SET (114A, 36) =NEXT 

4938 SET (104,41) : 

4998 L=.13:RETURN 

5000 SOR oa 1255+ POKE28776 , 192: POKE28808 , 255 : POKE288 40,3 
59695 POKE28872,255 

5810 PORA=29T028:SET(A,58) :NEXT 

5820 ~OLOR4 :FORA=6T05: SET (36+A,11) :SET(37+A,12) :SET(35+A,13) 











5930 
594 
6919 
6915 
6026 
699G 
10600 
7062 
7065 
701@ 
7015 
18620 
7925 
1039 
7035 
7059 
LOBGD 
1ODGG2 
1OG1 
LOO11 
1@G12 
18813 
1OG2G 
18825 
1BG3G 
1OG5@ 
1OG6G 
16965 
16067 
18969 
18079 
18975 
1GG9G 
18995 
1O189 
1G11@ 
1@115 
18129 
1815@ 
LBISS 
1916@ 
1817@ 
18180 
200 GO 
389 GD 
300661 
300692 
30005 
36619 
30815 
30920 
3003G 
36864 





SET (36+A,1 
NEXT 


4) 


PSET(87+A, 3.1) 


FORA=@TO2:SET(50,44+A) 


SET (60,46+A) 
Sah eae Ma 


~98:RETU 
os COLORS, 


RN 
1 


:SET (88+A,32) 


>SET(54,37+A) 
>SET (65,37+A) 
>SET(8@,46+A) 


>NEXT 


:SET (90+A,33) 


>SET(6@,40+A) 
>SET(70,4@0+A) 


>SET(70,44+A) 


Pr LMT "A UN Nee cA MG mc 


RESTORE 


PPR LT C232» RT OR a AMR CD WS 


FORA=1TO6 


Phe TAT Se CMa en 


READP,D:SOUNDP,D 
,' CONGRATULATIONS" 


PRINT@136 


READP,D:SOUNDP,D:NEXT 


PRINT: GOTO1LG15@ 
FPORA=29TO1LSTEP-3:COLOR,1:SOUNDA,1: COLOR,%@:SOUNDA,1:NEXT 


TD=1 


IF P= STHENI1GOG2G 


POKE28767-P*2,@: POKE28799-P*2,@: POKE28831- P*2 ,0 


POKE28863-P*2,0:P=P-1 


GOTO1Y 


CLS:F=S/T:PRINT"YOU SCORED A "> 


S=S*2 


IFS<4@PRINT" PATHETIC 


IFS<18@OPRINT"BUDGET 
IFS<L5@PRINT"RAD 
IFS<18@PRINT"GREAT 
IFS<22O0PRINT"SUPERIOR ";S:GOTO1997@ 
PRINT" ULTIMATE 


oS 


“:S:GOTO1G979 
"sS:GOTO1LGO7A 
"sS:GOTO1OO7A 
"eS:GOTO1GG7G 


PRINT: PRINT"YOU RATE A-"> 


Perr ls75 


IFF<20PRINT"GRANNY" 
IFF<35PRINT"SUNDAY DRIVER":GOTO1G0159 
IFF<43PRINT" ROOKIE" 
IFF<5@PRINT"AMATUER" 
IFF<57PRINT"PRO" 


AS=INKEYS:AS=INKEYS 


PRIM T THEM & 34 “AMOTHER Cre ewe Ee ; 


TD=@ 


AS=INKEYS: IFAS="N"THENCOLOR,@®:END 


IFAS<>"Y"THEN1O16@ 


GOTOY9 


DATA8 , 3',6,3,4,4,6,3,8,3,11,5,9,3,8,3,8, 578439657 


CLS.$ COLORS, i: RESTORE 


FORAS 1 TOZSSTEPS :PRINTQA, "Se!" 5 PRINTORSASO » Met 
FORA=1 7014 PRIMT@AKS2+1 5 "a PRINT OAESE+ES) 5 Mea 
AS=INKEYS: IFAS="N"THENO 
PRINT Rete . “Deuce tama saan ae" 
BY M.BRYHAM &, 
USING =" 


PRINT" "sat 
PRINT" "a 
PRINT! "a 
PRINT" "ua" 


4 
/ 


CL JF 


eLer T 


>GOTO1G15G 


>GOTO1G159 
>GOTO1G15@ 


iw ILI T Hh 


Da 
RIGHT 


HEMT 












a ~— 


= 


— ia 






30050 
30060 
30070 
380890 
38090 
38895 
31080 
31819 
31030 
3104¢g 
31069 
A48G00 
40010 
49020 
50000 
50002 
58005 
500.87 
50088 
50010 
50015 
50820 
501990 
501190 
5@115 
580120 
50125 
50140 
56150 





PRIHT" "ew" ‘OL! MUST HAYIGATE THE 
PRINT" "ew" TRACKS OF LHCRERSIMG" 
PRIMT" "“e" DIFFICULTY. AVOID THE 


PRIHT" "ww" SLICKS, 


PRINT? PRIMT "Sau HIT AM KEY 
AS=INKEYS ! 
FORA=1T012:READP,D:SOUNDP,D 
BS=INKEYS: IFBS<>""THENSY i 
NEXT 

BS=INKEYS: IFBS<>""THENY 

GOTO03194@ 


DATA255 , 207),192,249,68,48,192,12,12,51,12,195,51,@ 
DATA12,15, 95 294719256070 712;12,51,12,195,51.,8 


™ 






DATA12,12/,51,12,60,48,192 
X1=RND (3) 42: IFX1=@THENY1=RND (3) -2 
COLOR4: SEP (X,Y) 





+Y1 
FC<@THENRESET (X,Y) :GOTO1LOGOD 
) sCOLOR2 

,Y)=3THEN1LOOOO 

,Y)=1LTHEN1OO 









FRE aves co euiea 

IF PEEK (28416) =253THENY1L=1:X1=90:GOTO5@14@ 

IF PEEK (28416) =239THENY1=-1:X1=0:GOT05014@ 

IF PEEK (28416) =223THENX1=-1:Y1=9:GOTO5@14@ 
TF PEEK (28416) =247THENX1=1:Y1=@ 

IF POINT (X,Y) =3THEN1LOOOD 
COLOR4: SET (X,Y) :COLOR2: X=X+X1:Y=Y+Y1:SET(X,Y) :X1=0:Y1=9 
GOTO5GG0G . 
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YOu are trapped in a maze with the deadly killer tomatoes! If 
they catch you they will kill you. All is not lost, you can 
destroy the killer tomatoes by digging holes for them to fall 


Manage to destroy all the killer tomatoes, a new and larger 
Crop will ripen and: you will again" be fighting for your life! 


Use the arrow keys to move around the maze. The x Key to dig a 
hole and the c key to fill it in. GOOD LUCK! 
wi 
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ATTACK OF THE KILLER TOMATOES 


LS you 


INSTRUCTIONS 


T= Deadly Killer Tomatoe X= You oY 


fy Bee 


F on 


REM ATTACK OF THE KILLER 
REM TOMATORS 

REM BY APOLON IVANKOVIC 
REM 
CLS:COLOR2,1:GOSUBI16 
GOSUB42 
GOSUB5@ 
GOSUB54 
GOSUB69@ 

IFCTHEN13 

GOSUB99: IFS<5000THEN13 
IFN2<2THENGOSUBOG 
IFC=Q9THENO 

GOSUB129: IFKS="y"THRENG 
CLS:END | 
DIMN (13) ,D(13,4) ,P$(14) « 
PRINT@266,"PLFASEF WAIT" 3S%=29200:H=g 
PORI=9T015 : FORJ=O9T01:F=1*244+5*12468 
READA® : FORK=11TOGSTEP-1: POKEF, G 
IPAS>=2°KTHENPOKEF,1:A3= $-2°K 
P=F+13:NEXT:NEXT:NEXT 

FORI=97T0 38 3 : 5 

“PPEEK (S%+I) <>OTHENPOKES$+1+496 , 6:GOT036 
oe WE PEEK (S%+I+1) =OTHENF=F+1:1(F) =2 

1 PPEEK (S$+I-1) =@THENF=F41:1(F) <4 

1h PEEK (S8 +1424) =@THENF=F+1:7(F)=3 

(BP PEEK (S8+1-24)=9THENF=F+1:7(F) =] 

IF F=1THEN33 . 

K=0 :FORJ=OTOF: K=K+T (J) NEXT 
IFF<>O@THENK=K+3 

POKESS+I+490,K:GOTO 36 

ee ppe (T (9) —T (1) )=2THENPOKES$+1+499,9:GOT036 
K=(T(8)*T(1)/2) +4: 1FK=10THENK=8 
POKESS+I+4906,K 
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I 
J 
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q 
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] 


Qres 


4. 


NEXT 
FORI=@T0O13:READN (TI) 
FORJ=1TON (I) :READD(1I,J) :NEXT: NEXT 
FORI=@TO14:READP$ (I) :NEXT ‘\ 
FORI=@T04: READX(I) ,Y(I) :NEXT 

RETURN 

See te ae HISH SNES 2MS="XXXXX"2W=286722NE= 
FORI=9T0383:K=PEEK(S$%+T) 

IF K>1THENPOKESS+I ,@:K=Q 

J=INT (1/24) *8+1+W: POKEJ , PS (K) 

NEXT 

PRINT@99,"SCORE": PRINT@122,USING"####H": g 
PRINT@188,"MEN": PRINT@220,LEFTS (MS ,M) 
PRINT@283,"HIGH": PRINT@314,USING"#####" > H1:RETURN 
U=RND (349) +24: K=PEEK (U+S%) : IFK<>OTHENSG 
FORI=1TONS: IFT (I) =UTHEN5@ELSENEXT 
V=8:J=INT (U/24) *8+U+W: POKEJ, PS (2) 

POKEU+S$% ,2:C=@:RETURN 

NO=NS3+1: IFN%>8THENNS=8 

N2=N%3:FORI=l1TONS 

T (I) =RND (349) +24:K=PEEK(T(1I)+S%) :IFK<>Q@THENS56 
K=PEEK (T(1I) +S%$+400) : IFK=@0THEN56 
R(I)=D(K,RND(N(K))) :J=INT(T(I)/24)*8+T(1)+W 
POKEJ,P%(14) :NEXT: RETURN 
KS=INKEYS:BS=@:IFKS="W"ORKS=","7HRENV=1 
IFKS="S"ORKS="","THENV=2 

IFKS="Z"ORKS="" "THENV=3 
IFKS="A"ORKS="M"THENV=4 

IF V=0 THENRETURN 

IFKS="X"THEN72 

IFKS="C"THEN77 

T=U+X (V) +¥ (V) :K=PEEK (S$+I) 

IFK<>@THENRETURN 

J=INT (U/24) *8+U+W: POKEJ, P% (0) sPOKEU+S3 ,@ 
J=INT (1/24) *8+1I+W: POKEJ ,P% (2) : POKEI+S3,2 
U=I:RETURN 

T=U+X (V) +¥(V) :K=PEEK (S$+T) 
FORJ=1TONS: IFT (J) =I THENRETURNELSENEXT 
IFK<>@ANDK<> 3ANDK<>4 THENRETURN 
IFK=@THENF=3ELSEF=K+1 e 4 
POKEI+S%,F:J=INT (1/24) *8+1I+W: POKEJ,P% (F) :RETURN 
T=U+X(V) +¥ (V) :BS=1:K=PEEK(S%$+I) : IFK<3THENRETURN 
IF K>5THEN82 | 

K=K-1: IFK=2THENK=9@ 

J=INT (1/24) *8+1+W: POKEJ,P% (K) : POKEI+S%,K 
RETURN 

IFK=13THEN85 

K=K+1:POKEI+S% ,K:J=INT (1/24) *8+1+Ww 
POKEJ , P%(K) : RETURN 
POKEI+S%,@: J=INT (1/24) *8+1+W: POKEJ, PS (@) 
FORJ=1TONS: IFT (J) =ITHENT (J) =@:N2=N2-1 
NEXT:S=RND(5)*190@+S 
PRINT@122,USING"#####"sS: IFH1<STHENH1=S 








L377 





PRINT@314,USING"#####":H1L:RETURN 
FORI=1LTONS: IFT (1) =O@THEN1G3 

K=PEEK (S%+T(1I)) sIFK=2THEN1OS 
IFK>5THENQ9Q 
Pet( I) +X (R(T) ) +¥ (RCI) ) iK=PREK (S349) 
IFK>5THEN1O3ELSEGOSUBLI15 
IFK=5THEN98 


IFK=2THEN1Q5 4 
GOTO103 
POKEJ, P% (18) : POKET (I) +8%,19:GOTO103 


IFU+X (V) +Y¥ (V) =T (1) ANDB$=1THEN1Q3 
K=K-1:J=INT(T(1I)/24) *8+T(1)+W 
IFK=5THENPOKEJ ,P% (14) :K=@ELSEPOKEJ , PS (K) 

POKET(I)+S3%,K 

NEXT: IFN2=8THENGOSUB54 

RETURN 

J=INT (U/24) *8+U+W: POKEJ , P% (14) 

POKEU+S% ,@:M=M—-1: IFM=@THENC=1 
SOUND1,4:PRINT@220,LEFTS (MS,M);"_" 

FARE Ts LTO: PRINT@RTE , MMF Fe Td Ted ag 
FRIMT@S4.2 0 RS PRT ee Drath Ww 

FORJ= 170400: NEXT 

PRINT@378,"_* "s:PRINT@4190," " 

PRINT@442," r “epRInTeda74,™ " 

NEXT: IFC=8THENGOSUB5@ 

RETURN 
J=INT (T(1L)/24)*8+T(1I)+W: POKEJ, PS (@) : 

J=INT(F/24) *8+F+W: POKEJ ,P% (14) , 

POKEF+S%,@:T (I) =F: F=PEEK (S$+F+4@@) 

IFF=@THENRETURN | 

R(I)=D(F,RND(N(F))) :RETURN 

CLS:PRINT"YOU HAVE JUST LOST YOUR LAST" 

PRINT"MAN !!!"sFORI=1TO15Q00:NEXT 

PRINT: PRINT: IFS<=HTHEN125 

PRINT"BUT YOU ALSO GOT THE NEW HIGH" 

PRINT"SCORE OF "3S;" POINTS !!!"sH=S:GOTO0122 
PRINT"ANOTHER GAME ? ..."; 

KS=INKEYS:KS=INKEYS: IFKS<>"Y"ANDK$<>"N"THEN126 

RETURN 

REM DATA. 

DATA4G95 , 4995 ,2048 , 2849 ,3038,2725,2562,701,2811,3745,2562 
DATA687, 2810, 2689, 2056, 2813, 3064, 2049, 2563, 3837,2746,649 
DATA2746, 2731, 2178, 2723, 3066, 2729, 2048, 2057, 4095, 4095 
DATA1,@, l, fact pees wale 3, Lig 

DAWA 1» 292 pl, 47 252 8H2) 

DATA3,1,2,3,3,1, 2, 4% Ly 
DATA32,159,24)46,48, 
DATA35,35, 35, 35,42 
DATA @, ‘gy, 5, 24 oality 


Sy2y5 74 
S,1,3,44, r3y 2, 374,4,1,2,3,4 
as: 35 “Nd 

AG. 46, 20 
B24, =1,0 








Pe 
Gt 


“~ 
A roi 


~ 


Draw stars with all the points joined to each other. 


L5 
1@ 
20 
36 
49 
58 
6G 
70 
8G 
96 
16 
11G 
12G 
13G 
149 
L5G 
16@ 
17@ 
18@ 


_,The next four programs will 
“Printer/Plotter(Cat No x 7208) 
create great looking graphics gs 


PLOTTER FUN | 


STAR PLOT 


REM STAR PLOT BY P.K. BEAVER 
LPRINTCHRS (18) 

PI=3.1416 
LPRINT"M2290,-300":LPRINT"{" 


INPUT"NUMBER OF POINTS (TRY 18)"; 


DIMA (N) :DIMB(N) 
PORT=6TO(2*PI-. 001) STEP (2*PI/N) 
Z=Z+1 

A(Z)=COS (T)*29G+22 
B(Z)=SIN(T) *2094+22 
NEXTT 

FORS=1TON-1 

LPRINT™M" 7A(S)3","sB(8) 
FORD=S+1TON 
LPRINT™D";A(S)3","2B(S) 
LPRINT™"D";A(D) 3","sB(D) 
NEXTD 

NEXTS 

LPRINT"A" 
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Show you just how good the VZ-209 
really is! They allow you to 
imply. 
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PLOTTER 


Draws up to 29g patterns automat 


of its 369 Patterns to draw! 


CLS 
LPRINTCHRS (18) 
LPRINT"M22Q,-35g 
PRINT"PLOTTER BY P.K.BEAVER " 
PRINT: PRINT 


ically or lets you choose any 


“a 


PRINT"DO you WISH TO PRINT A SERIES" 


INPUT"ORF PATTERNS (Y/N) ":Qs 
IFQS="Y" GoTO0129 
PRINT 


INPUT"PICK A NUMBER (1-369)"sy 
5=99:GOTOLSG 
INPUT" HOW MANY PATTERNS (1-200)"sn 


N=260/N 
PORY=28TO280STEPN 
’ GPRINT"C"; RND (4) -1 

LPRINT" {" 
FPORJ=6TO10O00STREPy 
A=J/57.2958 
B=SIN(A)*J/5Qg 
C=COS (A) *J/5g 
LPRINT"D";C;" "ep 
NEXTJ 
LPRINT"H":LPRINT"Mg, 45g" 
IFS=99 GOTO269 
NEXTY 

LPRINT"CQ,a" 














ART DESIGNER 


Draws 13 different patterns and then lets you create your own 


wun 


que designs! 


REM *** ART DESIGNER *** . PROGRAM BY PHILIP HAYNE 
LPRINTCHRS (18) 'SET PRINTER TO GRAPHICS MODE 
PI=3.14159:HA=.5:HH=24@ :HW=240:UN=1'INITIALIZE 
DATA 15,1,5,9,7,2,16,0,288,99,8,2,5,1,13,5,8,8,9,1,6,0,120,39 
DATA 9,3 
CLS 
PRINT@9,"ART DESIGNER" 
PRINTTAB(5) "THIS PROGRAM FOR THE" 
PRINT"VZ-268 4 COLOUR PRINTER/PLOTTER. me 
PRINT"WILL DRAW A MULTITUDE OF DESIGNS"; 
PRINT"AT YOUR CONTROL." 
PRINT" THE PROGRAM HAS 2 OPTIONS" 
PRINT"(1) AUTOMATIC DESIGNS OR” 
PRINT" (2) MANUAL DESIGNS" 
PRINT"THE 1ST OPTION WILL DRAW 13 ‘ PRESET DESIGNS "; 
PRINT" AUTOMATICLY." 
PRINT"THE 2ND OPTION ALLOWS YOU TO INPUT 2 DESIGN “? 
PRINT"VALUES TO DRAW" 
PRINTTAB(5)"YOUR OWN ARTWORK!!" 
PRINT: PRINTTAB(3)"HIT 'RETURN' TO CONTINUE"; ' 
TF PEEK (28607) <>251THEN21@ 
CLS : | 
PRINTTAB (190) "OPTIONS" 
PRINT" (1) AUTOMATIC (2) MANUAL" 
PRINTS INPUTVENTER "1" GR "2? skp 
IF KB<LORKB>2THEN25@ 
IFKB=LTHEN30Q0ELSE49@ 
CLS: PRINT"READY PRINTER!" 
PRINT: PRINT"HIT 'R' WHEN READY" 
TF PEEK (28679) <>223 THEN 32@ 
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ec] 7 





y 
AWEW 
SAINT KY 


ZS 









a V7 
CLS JAD ATA \ 
FORN=1T012 YAY 
READ K,J'READ CODE DATA 
PRINT@23@,"A="sK,"B="Je ! PRINT CODE VALUES ON SCREEN 
GOSUB1®@GB'DRAW DESIGN 
NEXT N | 


RESTORE: GOT022@ 
CLS: PRINTTAB(7)"MANUAL OPERATION" 

PRINT"THIS OPTION ALLOWS YOU TO" 

PRINT"ENTER 2 PARAMETERS FOR A DESIGN" 

PRINT"WE WILL CALL THE 1ST VALUE '‘a'!" 

PRINT"AND THE 2ND VALUE 'B'" 

PRINT"THE 'A' MUST BE 3 TIMES BIGGER THAN 'B'. " 
PRINT"LOOK AT THE DATA VALUES AT LINES4@-58 FOR EXAMPLES." 
PRINT: PRINT"HIT 'RETURN' TO CONTINUR" 

IF PEEK (28697) <>251THEN48@ 

CLS:K=@:J=@ 

INPUT"ENTER A VALUE FOR 'A' EG.15"3K 

INPUT‘ENTER A VALUE FOR 'B!' EG.2 "sJ 


ee 















5 2G 
53 
54 
55@ 
569 
57@ 
609 
61¢ 
1GOGD 
161 
1820 
183@ 
1848 
195@ 
186 
107@ 
1975 
188@ 
1909 
L190 
1119 
112@ 
113@ 
114@ 


IP INT (K) <>KORINT (J) <>JORK<30RJ<GORI> 
CLS: PRINT" READY PRINTER": PRINT"HIT 
IF PEEK (28670) <>223THEN54Q 
CLS: PRINT@260,"PRINTING DESIGN" 
GOSUB1GOOG \ 
GOTO229 
CLS:PRINT"YOUR VALUE POR, "A* OR "SB! 7S" 

PRINT" INCORRECT PLEASE TRY AGAIN": FORDD=1T02509:NEXT:GOTO49G 
AS=2*PI/K:BS=AS* (J+1) 

S=1/SIN(PI* (J+1)/K) :TKR=K: TJ=J+1] 

TK=TK=INT (TK/TI)-* 79 

TPABS (TK) >HATHENTT=TJ : TJ=TK : TK=TT:GOTO1029 

TJ=INT (TI+HA) :TK=K/TJ 
IFTK-INT (TK/2) *2>HATHENS=S+CO 
UI=K+HA:UL=TK-HA 

CL=RND (4) -1:LPRINT"C";CL:LPRINT"MG,O":LPRINT" IT" 
LPRINT"M2490,249" 

PORI=UNTOUI :CH=@:CV=@:A=(I-1)*AS 

PORL=UNTOUL : CH=CH+COS (A) /S:CV=CV+SIN(A) /S 
GPRINT™D" ;HW+INT (HH*CH+HA) ;",";HH+INT (HH*CV+HA) 
A=A+BS:NEXTIL, 

LPRINT"D";HW;","sHH:NEXTI 
LPRINT"MG,-500":LPRINT"I" 

RETURN 


(K-2) /2THEN6GQ 
'R' WHEN RRADY" 


S(PI*TI/(2*K)) 
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SCREEN DUMP 


This is a useful little subroutine that you can add to your own 
programs that will allow you to print your hi-res screens in 
one of two different sizes on the VZ-20@ Printer Plotter. 


499G 
50GB 
501G 
5G 2G 
593 
5049 
5@ 

5 G6 @ 
587 
5089 
5O9G 
S1O@ 
S11 
51290 
5S13G 
5149 
515¢ 
5169 


\ 


REM *** SCREEN DUMP *** PROGRAM BY PHILIP HAYNE 
LPRINTCHRS (17) 'TEXT MODE 

LPRINTCHRS (18) 'GRAPHICS MODE “a 
DPEIST I"  INTPLALTES 

FORY=@TO63'Y AXIS RANGER 

FORX=@TO127'X AXIS RANGE 

SP=POINT (X,Y) 

IFSP=LTHENLPRINT"C2""IF GREEN PIXEL THEN GREEN PEN 
IFSP=2THEN5S12@'IF YELLOW PIXEL THEN LEAVE BLANK 
IFSP=3THENLPRINT"Cl"'IF BLUE PIXEL THEN BLUE PEN 
IFSP=4THENLPRINT"C3"'IF RED PIXEL THEN RED PEN 
LPRINT M"3X*32","sy*=4'MOVE TO POSITION 


‘LPRINT"J2,0,0,-2,-2,0,0,2"'"PLOT aA COLORED POINT 


NEXTX,Y'NEXT PIXEL 

LPRINT'"M@,-509" 

END'OR RETURN IF SUBROUTINE 

REM THIS PROGRAM WILL DO A SMALL SCREEN DUMP IF YOU CHANGE 
REM LINE 51808 TO 2100 LPRINT MM" :X*2:" "s¥xUg 











VZ LOTTO 


Let your VZ-200 win you a fortune! This Program will help you 
pick your lucky numbers. It can even help you with your system 
entries. Good luck! | 





B= 1:GOSUBL Ae ene 28672: BL=29152: TR=28793:BR=29183:GOsuBi9¢ 
PORK Pree d i Ta TL+64 2 PORX=17028 : POKETHX, 195 eueoe 

POKEX, 207 twee 32! POKEX, 207: : NEXT: FORK=TRG2TOBR-96SEP35 
POREXS8 19) eno REST+36TOBL~29STEP32: POKEX,197s POkEr oe 
PORN negro? POKEX+12, 197: POKEX+16,197:nexe 

eRe nt DO TOBL~64STEP32 : POKEX, 197: MEX? 


PRINT eons eA XF } PRINT@1574+X44, STRS (X47) ; ) 

PRINTO 349 peed oERS (X+14) ; s PRINTOZE54+K*4. SURE (X421) ; 

F RINT@3494+X*4,STRS (X+28) 

NEXT 

PR rma g053 PRINT@413+X*4, STRS (354K) + :NEXT 

PRINT@S ,V$;:PRINT@37,LS; 

PORX=1TOP: PS=STRS (P(x) ) 

TED (X) Soe eNERINT@944+P (X) *4 ,CHRS (240+4P(X)) 7 :NEXTE 

LEP (X) 99aNDE oy SLOTHENPRINTG136+D(X) #4 ,CHRS (2400e(X)) ¢ ewan 


PORK e ane, ANOTHER?" ; : PRINT@472,"(¥/N) "5 

Be en BOUND IAE*R 1 POUND TAGs. 4 nee 

CEC ANKEYS : [FCS=""ORAS<>"N"ANDCS<>"Y "THEN 4 
IFCS="N"THENCLS: END 

IFCS="Y"THENCS=""3¢GQ799- j 

SOUNDS ep eat) 4s CHRS (246+VAL (MIDS (P$,2,1))) ;:¢07049 
TPP) cog goius PRINTCHRS (240+VAL (RIGHTS (PS, 1,)) 

DRINTOS va NSOUNDP (X) , 1: RETURNELSESOUNDP (X) ~15,1:RETURN 
PRINT@S ,V$; :PRINT@37,LS; 

FORX=1T09999: NRX 


ST 
oo OM i PMY Me peeg 11) 
OC Ce" Wt lls Haws Won BH nll 
CLS? PRINT@229 ,W3; : PRINT@261 ,{(f, > PRINT@335,"pBy" 
PRINT@369,"R.D> BOUSFIELD"; 
PRINT@493,1984; 
SOUNDS 2 oO UND13 , 2:NEXT: FORX=1T03: SOUND13,1:NEXT 
SOUND15, 3: :SOUND11,3:SOUND13,4 
RETURN 
Br cement TOO UNDO FR#D ,L2SouNDISyK49 1 cnn 
CLS: PRINT@233,"SysrRMg ENTRY? (Y/N) "; :SOUND15,1:AS=INKEYS 
TERS Ho Tense, THEN 126ELSEIFAS<>"¥ "ANDAS<> Nee 
TP A bl TE ppp es: GOTOLASELSEPR THT ase , " BR de Wale Me py 
Se TNKEYS | TEAS" "THEN128ELSEIPVAL (AS) CLTHENTOOE ET ee (AS) 


ow Te = 











L29 
13@ 
To 
L32Z 
130 
136 
Lad 
14G 
141 
142 
145 
16@ 
165 
179 
18@ 
185 
19@ 
200 
205 
21 
Gide 
220 
23G 


IFA>2ANDA<7THENP=6 : GOTO135ELSEIFA>6THENP=A: SOUND1,1:GOTO135 
FORX=1T0O1090:NEXT:SOUND1,1 

CS=INKEYS: IFCS=""THENGOTOL3@ELSED=VAL (CS) : IFB>2THEN13@ 
P=D+1@ | 

CLS PRIAT@23 33 . "Sara Lie a eR FP pee TOSS: MET 
AS=INKEYS: IFAS=""THEN136ELSEIFAS<>"Y"ANDAS<>"N" THEN136 
IFAS="N"THEN16@ ! 

PRINT@230,"TYPE YOUR LUCKY NUMBER" “ 

PRINT@262,"THEN PRESS RETURN"; 

INPUTL: IFL>4@ORL<1THEN142 

P(1)=L:B=2: IFL<31THENSOUNDL, 1ELSESOUNDRND (31) ,1l 

CLS PRIM TRAE 7. “DDG ea ee Pd Teka ae oe: EET 
SOUNDRND (31) ,1l 

X=49 

FORZ=1TOP:REM P IS PICKS 

SOUNDRND (31) ,l 

Y=RND (X) 


'P(Z)=N(Y) : IFZ=lLANDL>@THENP (1) =L: Y=L:GOT0219G 


IFY=P (1) ANDL>@THENSOUND1,1:GOTO19@ 
FORQ=YTOX:N(Q) =N(Q+1) :NEXT: X=X-1 
SOUNDRND (31) ,1 
NEXTZ 

CLS: RETURN 


YY" QDEZ@DOOE 


oa @ O64 TG 


————— 


















ESP TESTER 


DO you have any hidden Powers? Ley thie Program to fing Out! 
Test Yourself for Clairvoyance Or Precognition. 





20 REM GRAPHICS INTRO TO 19@ 
2.1 sosuB2009 70 PRINTEOSK Mm, Per TeGAseK, my, yey, 
3 GOSUB209g 
LOS “Giex PRINT@O,"CompurER CONTROLLED E.S.P. TEgpn 
SC=@ 


198 PRINT@73,"—Rop FOR ;:~". 
110 PRINPEQ91;ncg> 4a RVOTANCE"  PRIWTE199, "<p> aBCoGuT Atos. 
La 2 PORN aots"<IONSTRUCTIONS": 
Lis Age LT028:AS=INKEYS:NEye 
© 129 AS=INKEYS: [PR AS=""THEN12g 
125 CLS? IFAS="T "THEN 3gg¢ 
126 SOUND31,] 
Ley TPAgs npn ENES="CLATRVOYANCE" :G070139 
128 sono1gs THENES="PRECOGNITION" Gorgee” 
129 GOTO1@S5 
139 TPAS=" D4 hen ORI=17025 :GosuB1G09:Gosunsgg 
14g TPPS=L Erie nt ORI=17025 :GOSuBSag seen ee! 
15@ RINT eet? (PICKS, 1) THENSCeses 
169 PRINT@384,"oyp OF Ms yay TESTS". 
165 PRINT@416,"your SCORE [Ss hgSCe 
170 NExt J , 
175 FORQ=1T02000:NExT 
18@ CLS: PRINT" RESULTS OF 25 SAMPLRE" 
132 PRINT"E.S.p. TEST ON ms ee 


184 [Pp SC>1OTHENPRINT" yoy ARE SIGNIFICANTLY PSYCHIC": GoTo21g 
g 


188 IF SC<OTHENPRINT" STRONG PSYCHIC AVERSION ao E.S.P":GoTo21g 
199 [Pp SC<3THENPRINT" Sr, tcp PSYCHIC AVERSION": GoT021g 
Z=] 





| 200 SE P2=1THENPRINT" THERE IS NO SIGNIFICANCR IN YOUR scoRR" 
| 219 EI e eRe IN TKS : GOSUBSB0G :CLS:cON LE 
500 1FJ=1THENPRINT" ENTER YOUR PREDICTION" ELSE525 

Hi | 585 PRINTODG9/ mans aR"? EPRINTOI 79, Cpe 

| 519 PRINTE26G, wos TES PRINTGZ94, ScaSer fugu gy, 

520 °RINT@266,"<cC>1RCr RO 

522 PRINT@73,ES; 

525 BS=INKEYS 

h 530 Pe” INKEY$: IFPS="" 7H ENS 39 

| 531 IFPS="S"THENS5 4g 

539 IFPS="T"THENS5 4g 


- 534 TPPS="B"THEN5 4g 
335 IPPS="S"THEN5 4g 





_ r 


pe a eee li hacer tn ~ er 


5936 IFPS="C"THEN54@ 
537 GOTO53@ 
548 SOUND31,1:RETURN 


LOB 
1820 
183@ 
1859 
2000 
2610 
20290 
20 3G 
204G 
2948 
2949 
205G 
2051 
20652 
2953 
2054 
2069 
207 
208G 
2099 
219 
2195 
2197 
2119 
2129 


"Z Lae 


2149 
3696 
3605 
3019 
3929 
3836 
3649 
385G 
3655 
3869 
3678 
3089 
3099 
4860 
4919 
4915 
49618 
4920 
4625 
49030 
4035 
494 
4945 
4950 


SS (1)="STAR":S$ (2) ="BOX":S$ (3) ="LINBS":S$ (4) ="PRIANGLE™ 
S$ (5)="CIRCLE" - 

PICKS=SS (RND(5) ) 

RETURN 4 

gl l= a ee 

Pi ct oe il ra a 

Pa “Soe — | 

Pei eh Se om 
ae a: 
FORI=1TO1OQ 

Y=RND (5) : IFY=5THENSOUNDRND (31) ,1 
IFY=1THENP=138 

IFY=2THENP=17@ 


‘IF Y=3THENP=202 


IF Y=4THENP=234 

IFY=5THENP=266 

X=RND (13) 

PRINT@P+ (X-1) ,MIDS (P$(Y) ,X,1); 

NEXT I 

PRINT@138,PS$(1);:PRINT@170,PS (2); 

PRINT@202,PS$ (3) 7: PRINT@234,P$ (4) ; : PRINT@266,PS(5) ; 
PORI=1T03:SOUND1,3:SOUND4,2:SOUND3,2:SOUND2,2:NEXT 
SOUND1,4 

PRINT@386,"COMPUTER CONTROLLED ESP TEST": 
PRINT@458,KS; 

FORI=1T020:AS=INKEYS:NEXT 

AS=INKEYS$: IFAS=""THEN214QELSERETURN 

CLS:PRINT: PRINT" THR COMPUTER ADMINISTERS Two" 
FORI=1T0O20:AS=INKEYS:NEXT 

PRINT"TYPES OF TEST." :PRINT"CLAIRRVOYANCE TO DETERMINE" 
PRINT" IF YOU Can PREDICT WHAT IS":PRINT"OUT OF ShGnl se 
PRINT"AND PRECOGNITION," Ww 

PRINT"THE ABILITY TO SEE INTO":PRINT"THRE PUTURE, 
PRINT: PRINTKS; 

GOSUB5@@@0:CLS 

PRINT" IN THE FIRST TEST THE": PRINT"COMPUTER CHOOSES" 
PRINT"A SYMBOL, BEFORE YOU": PRINT"MAKR YOUR CHOICE," 
PRINT" IN THE SECOND TEST THE":PRINT"SYMBOL, IS CHOSEN" 
PRINT"AFTER YOU HAVE MADE":PRINT" YOUR CHOICE." 

PRINT: PRINTKS: GOSUB5@@0@0:CLS 

PRINT: PRINT"YOU ARR GIVEN 25 CHOICES." 

PRINT"ON COMPLETION OF THE TEST" :PRINT"YOUR SCORE IS " 
PRINT"CHECKED AGAINST WHAT": PRINT" YOU WOULD" 

PRINT"BE EXPECTED TO GET- IF you" 

PRINT" ANSWERED RANDOMLY." 

PRINT: PRINTKS:GOSUB5@@0@0:CLS 


PRINT:PRINT"A SCORE OF 8 OR MORE IS ":PRINT"SIGNIFICANT." 


PRINT"A SCORE OF MORE THAN": PRINT"1@ IS OUTSTANDING" 
PRINT"CONSISTENT LOW SCORING SHOWS A " 
PRINT" PSYCHOLOGICAL AVERSION":PRINT"TO RSP." 


~— = 

















4952 
4953 
4Q55 
4969 
5000 
5610 
9999 


PRINT"THERE IS NO POSSIBILITY":PRINT"OF CHEATING WITH" 
PRINT"THIS TEST.":PRINT 

PRINTKS :GOSUB5@@@:CLS 

GOTO1@5 ‘ 
FORI=1TO20:AS=INKEYS:NEXT 

AS=INKEYS: IFAS=""THEN5@10ELSERETURN 

END 












PH=139 
HBDIJ OPQRM ZCGNV UYLKWEF 12345 67899" 


240: 


~29701STEPL 





Bla 





tO 


y 


mo 
Lo) 


9 


Seer 
‘a 
- 


eat we 
DAES STS 
Riccosootenrte 


Oe 











RS (3) ="A-2,1-9" 


Ww, 






ZL 


GOTO399 
GOTO 399 
GOTO 39G 


a 
¢ 
eo 
° 
4 
* 


PoeRe 2 pe ao 


tt 


4 


e 
f 






GOTO )55 


° 
° 








SET 
END MESSAGE" 


ERROR" 








A" THENGOTO689 


GOSUB1LO65¢ 
GOSUB1LE5¢ 


a0 
L76@ 


~- ff 


* 
® 
° 





-- 1 


ae 





KS 
TEKS="5"THRNGOTOIRG 


SOUND 31.5.2 


* 


4 


LTFKS="L" THENGOTO2@G¢ 
IPKS="3"THENR=3 


IFKS="2"THENGOTO 300 
[FKS="3"THENGOTO2409 


IFKS="2"THENR=2 


PRINT@469,; 3: INPUTKS 


GOSUBIL55G 











3 GOSUB300@ 


0 


4 


6 PRINT@469,;:INPUTKS 
@ IFKS="1L"THENR=1 





35° GOSUB1L76@ 


x, 


1@ GOSUB 








a 





NE ee 





Ys a eee 


380 
382 
385 
399 
565 
507 
588 
589 
519 
529 
53G 
DoD 
D3i/ 
54G 
545 
548 
549 
55G 
35 3 
556 
56 
589 
59@ 
609 
61¢ 
615 
629 
63¢ 
64G 
65G 
632 
66G 
679 
68¢ 
699 
695 
10@ 
72G 
ZS 
13@ 
74G 
15@ 
76G 
77@ 
780 
135 
790 


SOO” 


81G 
815 
8 2G 
83¢ 
836 


a ee er nt ——— 


IFKS="4"THENR=4 :GOTO 390 
IFKS=""THENGOTO39@ 
SOUND31,2:GOT0O34@ 
PRINT@12@,RS (R) 

GOSUB176@ : 
PRINT@195,;"COMPUTER RANDOMLY SELECTED"; 
PRINT@235,"CHARACTERS": 
GOSUB281@ 
IFR=2THENRX=9: RD=48 a 
IFR=1LTHENRX=25:RD=1 

IFR=30R R=4THENRX=62:RD=1 
GOSUB28@4@ 

POKE3@862,PL: POKE3@863, PH 
REM 

T=RND (RX) +RD 

IFR=3AND ( (T>26ANDT<48 ) ORT>57) THENGOTO54@ 
L=LEN (BS (T) ) 

IFL<LTHENGOTO54@ 

KXS=INKEYS 
IFKXS="X"THENGOTO135 
GOSUB285@ 

GOSUB23@@ 

GOTO054@ 

REM 

GOSUB176@ 

GOSUB261@ 

P=l:I=1l 
FORX=192+PT0384+PSTEP32 
PRINT@X,CHRS (I +64) 3" "spBS(T)> 
I=I+l ~ 
IFI>26THENGOTO69@ 

NEXTX 

P=P+8 

GOT063G 

GOSUB262@ 

INPUTKS 

GOSUB1764:GOSUB2619@ 

P=] 

T=112 

FORX=229+PT0357+PSTEP32 
PRINT@X,CHRS (I) ;"_ ";BS (I-64) ; 
I=I+l ~~ & 
NEXTX 

P=P+11 

IFP<20THENGOTO739@ 

GOSUB262@ 

INPUTKS 


“GOSUB176@ 


GOSUB2610 /\ 
P=194 

FORX=28TO63STEPL 

IFLEN (BS (X) ) <LOR (X>47ANDX<58) THEN GOTO855 
X1l=X 








- 


- 842 PRINT@P+10,CS$(X-27); idl axe 
845 IFX=39 THENGOSUB26 20 : INPUTK${GOSUB176U) P=162 :GOSUB2610 


859 P=P+32 ct renainen Septem: 
a eee 


B55 
8 6G 
8 7G 
S75 
88 
IBD 
920 
93G 
1G6@ 
L589 
LO.LY 


1515 


1529 
153@ 
1532 
1534 
1536 
1538 
154@ 
1559 
1569 
157@ 
158@ 
L585 
1598 
1595 
160 
161G 
1629 
163@ 
164G 
165@ 
1669 
1679 
168G 
1699 
1769 
177@ 
LEyo 
178@ 
1784 
Liz 
2000 
2019 
202G 
2025 
2027 
2039 


838 IFX1=63THENX1=-1 apne 


o 40h — 
RINT wer (D 


NEXTX . 
GOSUB262@ 

INPUTKS 

GOTO135 

CLS 

PRINT"PROGRAM TERMINATED" 

END Yn 


CLS (/'\ 
REM | 
FORX=1T013 
READDS 
KQS$ (X)=DS | 
NEXTX 
FORX=1T064 
READDS 
BS (X)=D$ Z 
NEXTX 
RETURN 
REM / 
POKE3@0862,PL: POKE30863,PH: POKEPSUB,5 
FORX=1T013 
PRINT@455+X,KQS(X); 
X=USR(X) 
NEXTX } 
RETURN 
REM 
PRINT@36,"VZ-29@8 MORSE CODE TUTOR"; 
PRINT@97,"SPEED:";:PRINT@107,"WPM"; 
PRINT@113,"RANDOM:"; | 
RETURN 
REM 
FORX=0TO31 
PRINT@P+X,"—"> 
NEXTX 
RETURN 
REM 
FORY=169TO480STEP32 
IFY=416THENGOTO1784 
PRINT@Y," as 
NEXTY 
RETURN 
REM 
GOSUB176@ 
PRINT@163,"PLEASE TYPE IN YOUR NEW TEXT"; 
PRIMT@ISS. "AMD PRESS <del" | 
PRINT@225,"OR"; 
PRINTR259."FRESS <a> IF WO CHANGE" ; 


/ 


f 


’ 
' 


= OF oe 








2049 PRINT@291,"REQUIRED"; 
2042 PRINT@458,"weLr THEN?"; 
| 2045 PRINT@354,TxTs; 
| 2050 PRINT@352,;: INPUT TXTS 
2955 PRINT@383," "?PRINT@415," 0 
2182 GOSUB1769 
2105 PRINT@166 ,"TRANSMITTING:": 
21086 PRINT@224,TxTS . | 
| 2197 GOSUB2819 . 
| 2188 GOSUB289g x 
2110 DMAX=LEN (TXTS) 
| 2115 FOKE30862,PL: POKE30863, PH 
| 2129 FORD=1T0pMax 
| 2122 K1S=INKEYS 
| » 2124 IP KIS="X"THENGOTO2295 
2139 T=ASC (MIDS (TXTS,D,1) ) 
2148 REM 
2150 IPT<64THENT=T+64:GOT02148 
é152° IFT>127THENT=T-64:GoT02148 
2168 T=7-64 
2170 D=LEN (BS ap aoc L) + (CHRS (T+192) ) +RIGHTS (TXTS, DMAX-p) 
| 2175 L=LEN (BS (T) ) : IFL<1 THENGOTO2299 
| 2189 PRINT@224,D15S 
| 2185 GOSUB285g 
| 2199 GOSUB23gg 
| 2200 NEXTD 
| 2201 FOR X1=1TOS*3:NEXTX] 
2202 GOT0212g . 
2205 PRINT@255," ws : 
2218 GOTO135 
2300 REM 
2320 BMS=BS (T) 
2322 SD=9-29 
2325 FORX=1TOL 
2330 TCS=MIDS (BMS,X,1) 
2335 TETCS="."THENPOKEPSUB, S 
| 2349 IFTCS="~"THENPOKEPSUB, $*3 
| 2343 FORI=1TOSD:NEXTI 
A 2345 X=USR (xX) 
| 2350 NEXTx 
2360 PORT=1TOSD*1.7:NEXTT 
2399 RETURN 
2400 REM 
2418 GOSUB176g 
2439 GOSUB305g 
2449 GOSUB155g 
2450 PRINT@469,; :INPUTSx 
2468 SX1=INT(Sx) 
2479 sp oxi <50RSX1>15 THENSOUND31,2:GoT02459 
2580 PRINT@193,SX1; 
2595 S=125-sSx1*g 
2518 GOTO135 
2619 PRINT@164,"INTERNATIONAL MORSE CODE"; :RETURN 





~ DOA x 





2620 
2809 
2819 
2859 
2855 
2869 
287 
3989 
3919 
3929 
3825 
3930 
3935 
3949 
3845 
3059 
396@ 
3979 
5 O8G 
S100 
511 
51290 
I1L25 
513¢ 
5149 
515@ 
5169 


— 


PRINT@449, "PRESS <lemMmeaees Tr) COMT TMUE" 5: RETR 
Phe Tb Tithe "DEPRESS <a TO ARBRE T oe O 
Pret TT ep 5c “REAL! Popes: 1S SL ea ae AI MP LIT Ks : PE TIRE pY 
PRINT@323,CHRS (T+64) <0 "SBS (T) 3" ". 
PRINT@333," W 

sry a. THENPRINT@333,C$ (7-27) ; 
RETURN “ 
PRINT@260,"1 [Rx C.W.";:PRINT@232,"2. RANDOM C.W."s 


PRINT@264,"3.CHANGR SPEED"; : PRINT@296,"4. SHOW MORSE": 


PRINT@328,"5 exp PROGRAM"; 
RETURN 
PRINT@166,"RANDOM PAR.SELECTION:"; 


ELO & 


PRINT@232,"1.a-97 CHARACTERS"; : PRINT@264,"2.g_9 CHARACTERS": 


PRINT@296 ,"3 .A-zsg—o CHAR'S"s 
PRINT@328,"4 arr, MORSE CHAR'S"; : RETURN 
PRINT@225,"PLREASE SELECT SPEED IN RANGE": 
PRINT@258,"oR <5-15> WORDS PER.MINUTE e 
RETURN 


me eet Pp EB SrE h 5 af fe ‘a Vf 
“a ett ry = nen ee Ee ae RE “ae 2 pas op 

ian Pex ee ee =, 

DATA,-., a 2, eee es 2 WM Bee oe ee ee 

DATA ~~". we a aga eee ae A) ee me ee ‘ 

DATA en as eee = on cee ae Ss 





sae 








INVENTORY 





This program will let you load and save inventory information 


On your VZ-200's cassette player. 


You give each item a name and 


number and the Computer will do the rest! 


CLS:PRINT: PRINT: PRINT 


2 

4 FRIHT" 
> PRIND" 
6 


Ee a ae 2 
BY ANDRE' SCHOEN" 


PRINT: INPUT" INSTRUCTION (Y/N) "svs 
7 IF VS="Y"THEN GOSUB 100@ 
CLEAR 5008:CLS:DIM NS (400) :DIM A$ (490) :DIM PS (40@) 


368 


Pl= 
CLS: PRINTS 
PR IMT me 


1 


el Ee oe i oa a COLOR 
a gg gg gD BM i" 


PRINT TYPE 1-T0 BUILD A FILE "™ 
PRINT" TYPE 2~TO SEE THE WHOLE FILE a 
PRINT» TYPE 3-FOR INDIVIDUAL ENTRY 
PRINT" TYPE 4—CHANGE REFFERANCE’S 9 
PRINT TYPE S-TO SAVE FILE "a" 


PRINT w" TYPE 


INPUTQ 


Le 
PE 
TF 
IF 
LP 
IF 
IF 


Q=1THEN1OG 
Q=2THEN 200 
Q=3THEN3 09 
Q=4THEN4G@ 
Q=STHEN5G@ 
Q=6THENG6OG 
Q=99THEN1200 


GOTO 82 
CLS: PRINT: PRINT: PRINT: PRINT" WHEN READY HIT RETURN! 


PRINT" 


STO OAC FILE we 


Es Es A a a eg 


INPUT"TO CLOSE TYPR 9999 FOR NAME me. 


PORI=P1T0499:CLS:PRINT: PRINT: PRINT" 


INPUT NS (T) a 
IF N$(I)="9999"THRN Pl=I:GOTO 159 


INPUT" 


ENTER SUBJECT NAME," 


ENTER SUBJECT NO# (IF ANY) ";AS (TI) 


INPUT"ENTER REFFERENCE'S"; pS(T) 
NEXT 


PRINT"FILE CLOSED-- 


GOTO 29 


CLS:FORI=1T0 Pl:PRINT NS(I);" 


"sINPUT'TO SEE MENU ,HIT RETURN"; xX 


“Fae (L)e" “eper 


KS=INKEYS:IFKS=" "THEN2@5 
NEXT 


INPUT"TO SEE MENU 
CLS:PRINT" 


,HIT RETURN";X:GOTO 29 
WHAT DO YOU WANT TO SEARCH BY:" 


PRINT" TYPE 1-SUBJECT NAME" 
PRINT" TYPE 2-SUBBJECT NUMBER " 
INPUT K 

IFK=2 THEN 329 


INP 


ENTER THE NAME ":NS 


FORI=1TOP1L:IF LEFTS (NS (I) ,LEN(NS) )=NS THEN 399 
NEXT 
PRINT" NAME NOT IN FILE":GoTo 349 


oe OG as 








389 
31 
3 2G 
Sed. 
322 


 33¢ 


349 
35¢ 
400 
495 
419 
415 
429 
430 
449 
456 
455 
46 
479 
48¢ 
500 
5@5 
519 
529 
5 3G 
549 
55@ 
690 
620 
63¢ 
64 
188 
1819 
1829 
183@ 
1849 
185@ 
1869 
187 
1880 
1885 
1886 
1887 
1888 
1889 
1899 
1109 
1209 


PRINT NS(I);" 


PRIn?t NSCijye™ “2A (CT) t" « SSeS (T) 

GOTO 340 

CLS:INPUT" ENTER THE NUMBER ";AS | 
FORI=LTOP1L:IF LEFTS(AS(1I),LEN(AS))= AS THEN 339 
NEXT 

PRINT NOCE)s™ “eae tr) es’ - “SPS (1) ENEXT 

PRINT: PRINT" ANOTHER NAME TYPE 1.";:INRUT X 
IFX=1LTHEN30@0 ELSE 20 

CLS:PRINT" ENTER SUBJECT FOR CHANGE" 


INPUT NS 
FORI=1TOP1L:IF NS=NS(I) GOTO 43@ 
NEXT 


PRINT"NAME NOT IN FILE":GOTO 469 
PRINT" ENTER THE NEW REFFERENCE" 
INPUT PS(I) 
PRINT"THE LINE NOW READS" 
MAS (I) E™ "FPS (T) 
INPUT"ANOTHER CORRECTION TYPE 1.";X 
IF X=l THEN 4090 
GOTO 29 / 
REM 
CLS: INPUT"PREPARE CASSETTE THEN RETURN ";X 
Fret CT BSP ia ea" 
PRINT#"VZ-DATA",P1 
FORI=1TOP1: PRINT#"VZ- DATA",NS (I) ,AS (I) ,PS (1) :NEXT 
PR IMT! a AP A A 
INPUT"TO SEE MENU HIT RETURN ";X:GOTO 20 = 
CLS: INPUT"PREPARE TAPE THEN HIT RETURN";X 
INPUT#"VZ-DATA",P1l 
FORI=1TOPL: INPUT#"VZ-DATA",NS (I) ,AS (I) ,PS (I) :NEXT 
Fre Ltd T Cam aa a iss TR IT" TH SEE MEH HIT RETURI" 5! AGT 2k 
CLS? PRINT: PRINT 
PR LMT" ea Sam a IPRIMT PRIAT 
PRINT" THIS PROGRAM IS DESIGNED TO" 
PRINT" STORE INFOMATION OF ANY NATURE" 
PRINT" WHITCH YOU CAN STORE AND " 
PRINT" RETRIEVE LIKE A PROGRAM " 
PRIMT" nM WHER LORDIMG STOREG DATA" 
PRINT" OFF A TAPE THE a STATMEMT " 
PRINT" WILL APPEAR " 
PRIAT" IHSTERD OF |eeiie 
PRINT" TO END TYPE(99) .FOR MENU " 
PRINT" OR USE BREAK KEY" 
PRIMT" Md THIS WILL WIRE AMY DATA” 
PRINT" STORED IN MEMORY " 
INPUT"HIT RETURN";X 
RETURN 
CLS: END 


SS a 











RENUM 


This is a very handy subroutine that you can use to renumber 
your programs on the VZ-20@ 


INSTRUCTIONS, 


1) Load the program into your VZ-20@ before you start writing 
your program. : 


2) Type RUN 99@1 to start the subroutine. 
3) Type in the total number of lines in your program. 


4) Type in the first and last line numbers to be renumbered. 
5) Type in the first new line number and the step or increment 
between lines. 


The program will list e&ch old line number and the new number 
as each line is changed. 


NOTE-This routine will only work if the lines to be changed are 
between 100 -—- 99890 and all cross references (ie.GOTO or GOSUB) 
have a leading blank or zero (ie.1@@ GOTO 588 not 108 GOTO5@@). 


¢ 


9988 STOP 

9991 INPUT"MAX.NO.OF#'S<9900"sN:N=N+41 

9902 DIMA(N+1),L3(N) ,N%3(N) ,D(3) 

9994 INPUT"1ST,LAST#TO RENUM";:F,K:G=65536:H=32767 

9906 X=30884:GOSUB9990:A(@)=Z?BS=CHRS (8) :D=1 

9987 X=A(I) :GOSUB999@:A(I+]) =Z:X=X+2:GOSUB999@:L% (I) =Z 
9998 IFZ>9900THENOIILOELSEI=I+1:GOT09907 

9919 IFF>L%(J) THENJ=J+1:GOTO991@ELSEF=J 

9911 IFK>L% (J) THENJ=J+1:GOTO99LIBLSEK=J , 
9912. I=I-1: INPUT" 1STNEW#,STEP";T,S:FORJ=OTOI:N% (J) =L% (J) sNEXT 
9913 FORJ=FTOK: IFK=ITHENI91L4ELSEIFT>=L% (K+1) THENI95G@ 

9914 IFF=@THEN9I9OLSELSEIFT<=L$% (F-1) THENI96@ 

9915 NZ(J)=T:T=T+S:NEXT 

9916 FORJ=FTOK ;T=N% (J) :BEINT (T/256) :X=A(J)+2:GOSUB999@: POKEY,B 
9917 POKEX,T-256*B:NEXT:PRINT" XREF#'S":TAB(21)"OLD NEW 
9918 FORJ=@TOI :FORM=A(J)+4TOA(J+1)-—-1:A=M: IFA>HTHENA=A-G 
9919 B=PEEK(A) : IFO>@THENI922 

9920 IFB=1410ORB=1450RB=1490RB=202 THENO=1 

9921 GOTO0994G 

9922 IFB=32THENI94G@ 

9923 IFB>47ANDB<58THENL=190*L+B-48 :GOTO0994@ 

9924 IFB=141LORB=145THEN9I94@ 

9925 IFL=9THENO=@ :GOTO9940 ELSED=@ 

9926 IFL=L%(D) THENN=N3% (D) :GOT0993@ 

9927 D=D+tl:IFD<=ITHENI926ELSEPRINT"?REF.TO#"s Ls "INH"? LS (J) 


- 28 » 











—— ma F a i ‘ + 


9928 
9939 
BO 1 
oO De 
IIS3 
9934 
9949 
995 
9966 
9999 
9292 
9994 


eer oe 


L=0:0=0:GOT0994g 

PRINTL; BS;-N; BS; :D(3)=INT(N/100@) :N=N-1009*D (3) 

D (2) = INT (N/108) :N=N-109*D (2) :D(1) =INT(N/1G) :D(G) =N-10*D (1) 
PORX=@9TO3:D(X) =D (X)+48:NEXTX:IFD (3)=48THEND (3) =32 
PORX=9T03:A=M- (X+1) : IFA>HTHENA=A-CG 

POKEA,D(X) :NEXTX:L=@:D=@ ) 

NEXTM:L=@: PRINTTAB (20) L% (J) ; BS; TAB (25) N%(J) tNEXTJ = END 
PRINT"NEW#";T3; ">= OLD#";L% (K+1):STOP 

PRINT"NEW#";T;3 "<= OLD#";L%(F-1):STOP 
Y=X+1l:IFX>HTHENX=X-G 

IFY>HTHENY=Y-G 

4=PEEK (X) +256* PEEK (Y) : RETURN 


=“ BO «= 








/ 


| 
| 


CHASM CAPERS 


Requires 16K RAM Pack 


Have you ever wondered what an adventure game is? This program 
Will teach you and it even has a great game for you to play! 
First learn about adventure games and then solve the problem of 
the caverns. Can you escape? 


19 REM******CHASM CAPppoweweues 
29 REM**WRITTRN FOR THE VzZ-2gg* 
30 REM***py M.R.CLARK,1983. ***x 
180 ong. 7) 16 (3) «P (5,3) ,Q(5,4) 728 (12) ,mag (17) 

LY5 GELS ‘ 

110 PRINTTAB (3 oon L640: R=3:0(R,B) =-1:G0SUB399:G0T0219 

120 PRINTTAB (3) "PRRES¢ ANY KEY TO CONTINUE"; 

125 Al1S=INKEYS 

Lag nae INKEYS?A1$=INKEYS$: IFA1$=""7HEN139 ELSE PRINT:RETURN 

14g DATAMSTLN (9 wegen? 2g HAN" /3,"ROC"/ 4, "LAN", 5. SWnne Re ee wo 
142 DATA" STEM 19, aN 18, "DIAM 11, "VEN 15, CHAS Tempeh aoe 

L7@ DATA"STE",19,"E",1, WE 2p NN 3) MS sie, GET", By EDRO" 6, "POU" ,6 
dey DATA" GRO" .12 

¥72 DATAMB TDN yet rob" 12, "INV" 15, "HEL", 16, "THR 6 

1.73 PAAR, Por EME” 6, "Bal &, NiacatA g 

200 S02 FO :B1 Gaon eo og HOO" 118, "PLU", 11, "FIN", 12, "30MM. 15 

210 Se Lee C182 Uh omen.) s param 

228 INPUT"WHAT po YOU WANT TO ey ALS IFALS=""THEN22GELSEPRINT 
230 Beer Be OLEN (ALS) : IFMIDS$(Al$,x,1)¢>0 "THEN25@ 
249 NEXT Xs ere nek 1) :C1S=RIGHTS (R18, LEN (ATOy oe 
250 Pas te BLS=""THENLETBIS=A18:C18_4 

260 One eae (ALS 3) :Z1$=LEFTS (C1$,3) :RESTORE 
270 NER ord READD1$,D: IFD1S281STHENLETSo 
280 NEXTX 

299 FORX=17T023 

380 WEADDLS ,D: IFD1$=¥1$THENF=D:G07T033g 

318 NEXTxX 

329 PRINT"I pon'? UNDERSTAND "7ALS:M=13:GoTo21g 
330 IFF<>16THENLETM=9 

R39 TFF=1GOSUB586:GoTo21g 
334 TFF=2GOSUB650:GoT021g 
336 TFF=3GOSUB699:GoTo21g 
338 IPF =4GOSUB740:GoT0219 
349 TFF=5GOSUB810:GoT021g 
342 I FF=6 GOSUB889:GoT021g 
344 IFF=7G0T0219g 

346 TFFP=8GOSUB1009:GoT0219 
348 TFF=9GOSUB1070:GoT021g 
350 TFF=19GOSUB115@:GoT0219 
352 TFP=11G0SUB1249:GoT021g 
354 TFF=12G0SUB1198:GoT021g 
356 TFF=13GOSUB1220:GoTo21g 
358 TFF=14G0SUB123¢:GoTo219 
360 TFP=15G0SUB132¢:GoTo21g 
362 TF F=16GOSUB1360:GoT0219g a 
364 IFF=17GOSUB1379g 

366 GOTO219 






engl 4 
att fe 








a 


399 
400 
401 
492 
403 
4g4 
419 
429 
439 
44g 
459 
469 
479 
489 
499 
509 
510 
529 
539 
549 
559 
60 
570 
589 
599 
609 
£610 
620 
630 
649 
659 
660 


689 
699 
760 
719 
729 
730 
749 
75@ 
769 
77G 
780 
790 
8 OG 
81d 
8 2G 
839 
8 4G 
85G 
869d 
8 7G 


IFF<STHENLETQ (W,F) =1 
IFR=1THEN41Q 
IFR=2THEN4 3G 
IFR=3THEN44Q 
IFR=4THEN45Q 
IFR=5THEN429 
PRINT"THIS IS THR PIRATE'S ROOM":GoTo49g 

PRINT" YOU'RE IN THR MYSTERY ROOM":GOTO1¥9g 

PRINT"YOU ARE AT an UNDERGROUND LAKE":GoT049g 

PRINT"AN ESCAPE HOLE Is HIGH ABOVE YOU":GoTO049g 

IFC (3) =@THEN47Q 

PRINT"THIS IS A LARGE ROOM" :GOTO049g 

PRINT"A VENT IS BLOWING OUT STEAM "; 

PRINT"AND YOU CAN'T SER ANY OBJECTS":RETURN 

PRINT"THERE [TS:" 

PORX=1T012: IFO (X) <>RTHEN529 

PRINTT2S (X) :L=1 

=O: REPORT MENPRINT "NOTHING" ELSEPRINT| 

L=@0:RETURN 

TFR=30R0 (5) =60R0(5) =RTHENLETQ(R,@) =-1:G0T039g Se 
PRINT"IT'S PITCH BLACK IN HERE.YOU HAD BETTER GO BACK" :M=] _- 
INPUT" WHAT NOW" 7 A1$: IFRND (9) >. 7THENLETR=W:GOTO399 , 
PRINT"TRY THAT AGAIN! ":GoTO56g , 

IFR<>1THEN6OG 

W=R:R=2:GOTO549 ' 
IFR<>4THEN64Q 

UBC (1) =1THENLETW=R:R=3:GOTO54g) ’ 
W=R:PRINT"A DEEP CHASM BLOCKS THE WAY": IFQ (4,8) THENLETM=2 

LP P<STHENLETQ (W,F) =1: RETURNELSERETURN 

PRINT"WRONG WAY":RETURN 

TPR=2THENLETW=R: R=1:GOT054g 

IFR<>3THEN64Q 

IFC (1) =1THENLETW=R:R=4:GOT054g 

GOT06290 ! 

TP R=STHENLETW=R: R=1:GOT054g 

TPR=3THENLETW=R: R=2:GOTO054Gg 

IFR<>4THEN64G 

TFC (2)=1THENPRINT" ROCKS HAVE BLOCKED THRE TUNNEL" :M=3: RETURN 
W=R:R=5:GOT054g 

IFR<>2THEN77@ 

IFO (18) =2THENLETW=R: R=3:GOT054g 

PRINT"IT'S TOO SLIPERY at THE MOMENT !":M=4:Q(2,4)=1:RETURN 
IP R=1THENLETW=R:R=5:GOT054g 

IFR<>5THEN64Q | 

TFC (2) =O THENLETW=R: R#4) GOTOS 4G ——— 
GOTO72@ 
IFS>1L1LTHENPRINT"NO WAY": SOOUNDS,2;19,1:RETURN 
IFS=90RO(S)<>RTHENPRINT"I SEF NO ";C1S:RETURN 

TP S=6ANDO (2) <>6THENPRINT" yoy HAVE NO BOTTLE" :RETURN 

IPO (G9) >2THENPRINT"SORRY 3 I¢ THE LIMIT" :M=5: RETURN 
PRINT"OK":0(S)=6:0(@) =0(G) +1 

IFO (7)=®ANDS=6THENPRINT"T SEE GOLD!":PRINTM1S (6) :0(7)=R 
RETURN 


\ 


eee 











IFS>1L1LTHEN819g 
IFF=6AND y°="THR"ORY1$="PLA" THEN Ig 

FO (Sy oe ee EMP" THENLETS=6 :C1$="warpe™ 

IFO (S) =6THENS 3g 

PRINT"YOU HAVER NO ";C1S:RETURN 

IPS=2THENS od aa 820 (8) =0 (6) -1: TeS=6THENLETO (6) =3 
TPS=2THENPRINT" {oD Seeks 19" SOUND1, 4:M=7:0(2) ag 
TPS Coe oo (6) =6THENO (6) =2:0(9) =019) 2, 
TF'S<>6ANDS<>1THENRETURN | 
TFS=1THENPRINT"THRy SEEM DRY!":RETURN 

TFO (1) <>RTHENRETURN 

RIND MA Hee ye 28 11421 1523,1525,1527, 1598-1 
PRINT"A HUGE PLANT GROWS TO THE ROOF" 


999 Yn OO (GH 2 5019 eRe eRai an 


Liss 
1166 
1167 
1168 
1169 
Lle72 
L1L75 
118@ 
1199 
1280 
1219 
1229 
123@ 
124g 
125¢ 





IFO (3) <>6THENO2g 
TFR=30RR=4THEN1Q5Q 

IPC (2) =1THENPRINT"NO GOOD!":M=8:RETURN 

PRINT" THERE De LOUD SONBEB II" 3M=920(2)<Leneiian 
TFC (1) =OTHENPRINT"A BRIDGER APPEARS":C(1)=1:RETURN 
PRINT" THR BRIDGER VANISHES":C(1)=9:RETURN 

IFO (12) =3ANDR=3THEN199¢ 

PRINT" NOWHERE To GO" :M=10:RETURN 

PRT ied CANDO (9) =6ANDO (11) =<6THENI199 

PRINT" yoy DON'T HAVE ALL THRE TREASURE! "s:M=]] 
rio) BANDO (4,6) =-1 THENLETM=1> 

RETURN 

520 (19) <>2aNDC (1) =9THENI155 

PRINT" yoy DIDN'T BLOCK THE. PIRATE" :M=14 
O(7)=120(9)=1:0(11) 21} 

PRINT" THR TREASURE HAS CONE! !"30(G)=0 (8) -3:RETURN 
GOTO0399g 

PRINT ARCS niga ag 218 1720,1/23,1325,6:co9: pe1195-9e: 
PRIMT TAB SS 4 an sg ‘PR IAIT 

PRIM TTAB 5° MT 5 F501 4 ee — 
IPHS<PTHENHS=P:HSg="on 3 

reat PRINTTABC 5 >" gh@etsmmperenacg a SUMS 5" WW ye 
TFHS=PTHENGOSUB39g9 . 

PRINT: IFP<199GTHENPRINT"wuy NOT TRY FOR A PERFECT SCORE?" >; 
1EP<1090THENPRINT" PLEASE NOTRE THAT THE USE OF ALI," 
“EP<1009THENPRINT"COMMANDS COUNTS AS A TURN AND Ig" s 

TPS TE POTHENPRINT "DEDUCTED FROM THE SCORE," 


INPUT"DO yoy WANT ANOTHER GAME (Y/N) "sal1s 
IFALS="y"quRN RUN ELSE END 

LERSAH ESE ee CRO"ORC (1) =OsHENPRINT pres TRY!!":RETURN 
IFR=4THEN58g 

IFR=3THEN65Q 

S=6:C1$="WATER":GoToglg 

S=6 :GOT088g 

IFO (4) =6THEN126g 

PRINT" you LACK WHAT [¢ NEEDED" :M=15:RETURN 


=< 32. a8 





126¢ 
127@ 
128¢ 
1299 
L291. 
1399 
131@ 
132@ 
133@ 
1349 
135@ 
1369 
154@ 
155@ 
1579 
159@ 
Loe 
1332 
1619 
dey lids 
L612 
L613 
1615 
162@ 
Legal 
L6a2 
L623 
163@ 
1631 
£632 
1635 
164G 
1645 
165@ 
1655 
1669 
1665 
167@ 
168@ 
169G 
178 
L719 
LYLS 
172@ 
Li¢5 
173@ 
1748 
175@ 
LoL 
L132 
176@ 
1776 
178@ 


LFR<>4THEN1190 
PRINT"THE STEAM CLEARS" 

C(3)=1:0(9)=4:0(11)=4:0(8) =0(G) -1:0(4) =9:GOT0499 
IFO(7)=6THENPRINT"THE BATS GRAB YOUR GOLD":0(@) =0()-1 
IFO (7) =6THENO(7)=2:M=17 
LFRND (@) >. 9THENPRINT" SOMEONE IS WATCHING YoU!" 

GOTO 499 

PRINT"YOU ARE CARRYING :" 3 

FOR X=1T012: IFO (X) <>6THEN134QELSEPRINT?T2S (X) :L=1 

NEXTX: [FL=9THENPRINT" NOTHING" ELSEPRINT 

L=0:RETURN 

IFT<2THENGOSUB187@: RETURNELSEPRINTM1S (M) : RETURN 
FORX=1T037:READ D1$,D:NEXT X 
FORX=1T012:READT2S$ (X) ,O(X) :NEXTX 
FORX=0T0O17:READM1S (X) :NEXTX : RETURN 

DATA"A SEED",2,"A BOTTLE",1,"A MAGIC WAND",1,"A ROCK", 3 
DATA"A LIT LANTERN",2,"WATER",2,"GOLD",9,"",08,"SILVER",@ 
DATA"SAND",5,"DIAMONDS",@,"A HUGE PLANT",@ 

DATA"BE ADVENTUROUS!","YOU NEED SOME LIGHT" 

DATA"YOU WILL NEED MAGIC HERE","OH DEAR!" 

DATA"FIND SOMETHING TO IMPROVE YOUR GRIP" 

DATA"YOU'LL HAVE TO DROP SOMETHING" 

DATA"BEWARE THE BATS!" 

DATA"I HOPE YOU DON'T NEED THAT AGAIN","YOU WONT GET THRU" 
DATA"YOU'LL FIND OUT WHAT HAPPENED","WRONG ROOM" 
DATA"KEEP LOOKING" 

DATA"YOU'LL HAVE TO DO SOMETHING ABOUT THAT STEAM" 
DATA"TRY OTHER WORDS" / 
DATA"WHATEVER BLOCKED YOU .WILL BLOCK THE PIRATE" 
DATA"ALL OBJECTS HAVE A USE","WAVE SOMETHING ELSE" 
DATA"DON'T BRING THE GOLD THIS WAY AGAI 

1 PRET HT "WR sD OL Dl Ca a ae” 

PRINT 

PRIM T TAB 5% 2181 oA A PTT 

PRINT 


KR IMT THEM & "a PSP A 
PRINT 
PRINTUAKKKKKKKKKKKKKKKKEKKKKKKKKKKKEKKEKEEN 
PRINT"ADVENTURE GAMES TUTORIAL 18 
PRINT" INTSRUCT. FOR CHASM CAPERS (2)" 
PRINT"CHASM CAPERS jay" 
DRT NTI ae ae Sea Se ae ee He SIE IE eK IEW eae ak alae de ie de ded IO 
PRINT 


Fhe DTT PA cos 2" lB SPS ST 2 A A | 
FORI=1TO19:NEXT 

GOSUB13@ 

A=INT(VAL(A1S)) : IFAXLORA>3THEN173@ 
IFA=1THEN20Q0@; 

IFA=2THEN177@; 

IFA=3THEN264@; 


CLS: RETURN 
CLs PP DAT "Fee dO Rw AL RP A dM ee 2" 
PRINT" AT THE BEGINNING OF THE GAME" 








1785 
1799 
1795 
180g 
18905 
181g 
1815 
1829 
1825 
183g 
1835 
1838 
184g 
185¢ 
1855 
186Q 
1865 
1879 
1875 


188Q. 


1885 
189g 
L895 
199g 
L9@5 
L919 
1915 
192g 
L925 
193g 
1935 
194g 
1945 
195@ 
LO53 
1955 
LO58 
196 
199g 
2060 
2019 
2015 
2029 
2825 
2039 
2035 
2049 
2045 
2059 
2055 
2069 
2065 
2079 





(5 TOTAL)". 
) PIECES" 


PRINT" Toys TREASURE¢g HIDDEN THERE 1 
PRI 

GOSUB12g 

CLS: PRINT" qyp FEWER MOVREg IT TAKES yoy TO" 
PRINT" ACCoMPL tg THIS, THR CLOSER yoy 
PRINT"GET 70 A PERFECT SCORE," 

Phe Thy Life THE CP pfu Ural P05 Lik fst yi 
PRINT"DIRECTIONS FOR MOVING FROM CAVE" 
PRINT" 709 CAVE, OTHERWISE USE 2-worp" 

FFs T NT COn Me prs: A Ll SG we Mec py Wit Min i TO" 
RINT" ACCOMPL I si YOUR TASKg.u 

PRINT" RY DIFFEREN? COMMANDS agn 

PRINT" THOUGH YOU WERE REALLY [yn THAT" 
BRUNT" SITUATION, yon WILL Soon GET THR" 
PRINT" HANG OF Ip nu 

Ph Ty LF TOL PE | Bn acy 8g TOL kT i ee = 
PRINT" SHOWN AGAIN THR ROOM IN WHICH" 
PRINT" yoy RESIDE." 

GOSUB12g 

CLS: Pret maT? IF ¥ou T's Pepe WE Ae co sae Ty! 
PRINT" Wwrby, BE SHOWN a LIST°OF wHapn 

PRINT" yoy ARE CARRYING." 

Pre IT FYOU Type a CI) pay 

PRINT" RECEIVE A USEFur, HINT," 

PRINT | 

fet 7 HT TREK s it ee Lae 

PRINT 

°°SUB128:GoTo164g " 

SOSUB120: RETURN 

CLS: Pr [HT “ADVENT Mt ONC Sam ato sa ees 


PRINT" AN ADVENTURE IS A ROLE PLAY—" 
PRINT" ING GAME INVOLVING A COMPUTER" 
-RINT"SIMULATION OF AN IMAGINARY WORLD": 
PRINT" INTO WHICH yoy ENTER AND PERFORM" 


THE Comp." 
PRINT"UTER a RIES OF ONE op TWO WORD"; 
PRINT" COMM pppies CONSISTING cy A ste) Cpe , 
"Fl TUR], SUCH FS, Ml [eB ce 

















































2075 PRINT"EEN." 

2888 GOSUB129 . 

2085 CLS:PRINT" THE GOAL OF MOST GAMES IS FOR"; 
2098 PRINT"YOU TO FIND AND RESCUE SOMEONE" 
2095 PRINT"OR TO DISCOVER AND TO ESCAPE WI-"; 
2100 PRINT"TH ITEMS OF VALUE.GENERALLY YOUR"; 
2195 PRINT"QUEST IS FILLED WITH PERIL BUT" 
2110 PRINT"YOU CAN BE ASSISTED BY OBJECTS" 
2115 PRINT"THAT YOU WILL FIND ALONG THE WAY'); 
2120 PRINT".USUALLY A LIMIT IS PLACED ON" 
2125 PRINT"THE NUMBER OF ITEMS THAT YOU CAN"; 
2130 PRINT"CARRY AND ON HOW LONG SUCH USE-" 
2135 PRINT"FUL THINGS AS TORCES WILL REM-" 
2148 PRINT"AIN ALIGHT." 

2142 PRINT 

2145 GOSUB12@ 

2158 CLS:PRINT" IF ANY OF THE PERILS CAUSE" 
2155 PRINT"YOUR 'DEATH' THIS MAY BE THE END"; 
2160 PRINT"OF THE GAME,BUT SOMETIMES YOU" 
2165 PRINT"ARE GIVEN A CHANCE TO LIFE." 

2178 PRINT" THE VOCABULARY OF THE GAME" 
2175 PRINT"IS LIMITED TO 28 TO 188 WORDS" 
2189 PRINT"DEPENDING ON THE SIZE OF THE" 

2185 PRINT"PROGRAM.A COMPLETE LIST OF THE" 
2198 PRINT"WORDS RECOGNIZED BY THE PROGRAM" 
2195 PRINT"IS SELDOM GIVEN,AS MUCH OF THE" 
2200 PRINT"FUN OF PLAYING THE GAME IS IN" 
2205 PRINT"LEARNING THE LANGUAGE OF THE" 

2218 PRINT"GAME.IF THE PROGRAM DOESN'T UN-" 
2215 PRINT"DERSTAND YOUR COMMAND,TRY SOME-" 
2220 PRINT"THING ELSE." 

2225 GOSUB12@ 

2238 CLS:PRINT" SOME TYPICAL SINGLE WORD CO-" 
2235 PRINT"MMANDS ARE:-" 

2249 FRINT" NaN RRO TOES A LST OF" 
2245 PRINT"THE ITEMS THAT YOU ARE CARRYING."; 
2250 FRINT" | ERC aL a mtr RE MERL, SGM IF" 
2255 PRINT" ICANT DETAIL THAT MAY ASSIST" 

2268 PRINT" YOU." 


2270 FRIMT” — tole isa fiF'? RESULT IM A" 
2275 PRINT"USEFUL HINT." ae 
2278 PRINT 


2288 GOSUB12G 

23 4Q COL: PRL TT PIE 7 2 AG eM ell 
2359 PRINT" MOST GAMES ALLOW THE USE OF" 
2360 PRINT"SINGLE-LETTER COMMANDS FOR MOVE" 
2370 PRINT"MENT SUCH AS N,S,E,W,U,D FOR" 
2380 PRINT"NORTH, SOUTH, EAST,WEST,UP,AND" 
2398 PRINT"DOWN." 

2408 PRINT" IN ADDITION TO LEARNING THE" 
2410 PRINT"WORDS THE PROGRAM RECOGNIZES," 
2420 PRINT"YOU WILL ALSO NEED TO LEARN YOUR"; 
2438 PRINT"WAY AROUND THE SCENARIO,SO BE" 


ae 


a ae 





tee 


244g 
2450 
2460 
2479 
2489 
2485 
2499 
2500 
2510 
2526 
2530 
254 
2556 
2560 
257 
258G 
2599 
2609 


* 261G 


2620 
2639 
2649 
2659 
2655 
2669 
267 
2689 
2699 
2700 
2729 
2749 
2750 
2769 
277 
2780 
2800 
2805 
2819 
2815 
2829 
3800 





PRINT"PREPARED TO DRAW A MAP.IF yoy" 
PRINT"MOVE IN a CERTAIN DIRECTION ap_" 
PRINT"WAYS BE SURE yoy CAN GET BACK To"; 
PRINT"WHERE yoy STARTED, PREPARE yoyR" 
PRINT"ESCAPE ROUTE." \ 

GOSUB129 

CLS: PRT pT PES TES tea pp TO Ty PE Ui MP i gg ang 
PRINT"EARLY IN THRE GAME,YOU MAY BRE " 
PRINT" CARRYING SOMETHING USEFUL.USE™ 

PRIM T "age oT) CHECK ICL SHAPERS CUI T pices 
PRINT"FOR DETAIL Op TO EXAMINE AN OB_” 
PRIMT JeCTe Uy ES Oe coc 9“ DEES RE oa mag 
PRINT"IF you Grp STUCK," 

PRINT" — FINALLY, IF YOU GET STUCK po-" 
PRINT"N'T BE AFRAID To QUIT THE GAME," 
PRINT"AND START AGAIN IF YOU GET cCon_" 


PRINT 

PRINT TAB & 3 Deco ea oon sea pay 
PRINT 

GOSUB129:GoTO164g 

MODE (8) :COLOR6,g 

CLS: PRIN? 

PRIMT ‘Stet EFA FOSSceame 
PRINT ‘Cee OR ee 
PRINT ee HRA Sea 7 


PRI T "mic: ke Hael ull 
PF THT eg a ea a a aay 


ce or A lang j 
PRI HT " Simeraapagemmn eee nt j 
ae ; NT ee CU FE ; Slay ; 
PP THT GC sam ' 

a rian “dt PIPE tho REN itrsecsn my 


Pre T eT 
PR THT" : Err oe 
PP TT Ra EAL a Rare, 
Phe TT pg RR RE pec PR ee 
PORT=1T02590:NEX? 
COLOR,@ 

GOTO1769¢ 
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PRIAT: TMPUT AEC  aipae gems: HS 


o ae 





Ht RET Lippy 














THE QUEST 


Requires 16K RAM Pack 


Your Castle has been captured by bandits and you were forced to | 
flee. But now you have been joined by ten valiant knights who 
have sworn to help you recapture your castle. 


It won't be easy. You must find the three keys needed to unlock 
the secret door to your castle. The bandits have heard of your 
quest and have hidden the keys and sent out men to attack you. 
Buy supplies from the bazaar and then. seek the keys, gathering 
more men to your aid quest. Remember, the bandits know that you 
are coming and they may move the keys! Good fortune on your 
guest for a kingdom! 


1 POKE3@744,1 

2 GOTO1G5@ 

4 W=10:G=30:R=25 
7 DW=2:DG=4 

8 X=2 iT 

BO FR TT MUA eg ean ay og 

90 PRINT" KNIGHTS="W; : IFWW=LTHENPRINT"A WIZARD"ELSEPRINT":" 
91 PRINT" RATIONS="R; : IFHH=LTHENPRINT"A HEALER"ELSEPRINT":" 
92 PRINT"GOLD="G;:IFGG=1LTHENPRINT"A GUIDE"ELSEPRINT":" 
93 PRINT"KEYS="K;:IFMM=1LTHENPRINT"A DONKEY"ELSEPRINT":" 
94 IFSS=1LTHENPRINT"THE MAGIC SWORD" 

108 PRINT"WHICH WAY N,S,E,W?" 

101 IFX=2THENPRINT"THE CASTLE ‘IS SOUTH" 
102 INPUTZS:I1FZS=""THEN1O2 
193 GOTO789 , Sy \ 
104 PRINT"YOU ARE ON A PLAINS 
186 GOTO89@ Coe! 
120 IFW>@THENR=R-1 
121 IFW>15THENR=R-1 
122 IFW>3@THENR=R-1 
123 IFW>45THENR=R-1 
124 IFW>6GTHENR=R-1 
125 IFW>75THENR=R-1 
126 IFW>9®THENR=R-1 
127 IFR<@THENR=9 (- | 
128 IFR<1THENW=W-2:PRINT"NO RATIONS’.2, KNIGHTS STARVE" 
130 IFW<1LTHENPRINT"NO KNIGHTS LEFT" 

L3L DFM LTE PAR RR TT bP SP Ss a i SRA ei 0 
132 IFW<1SOUND4,6:SOUND4,6:SOUND4,3:SOUND7,6:SOUND6,3:SOUND6,3 
133 IFW<1SOUND4,3:SOUND4,3:SOUND3,2:SOUND4,8:GOTO1LOGO 

L34@ YY=YY+2Z5 

135 PRINT:GOTO89 | 

140 PRINT"HERE IS A REFUGE.GOING IN Y/N?" 

141 INPUTKS: IFKS=""THEN141 

142 IFKS="N"THEN28@ 

143 IFKS="Y"THENT=INT(RND(@)*4)+4:GOTO145 

144 GOTO141 | 

145 PRINT"RECRUIT"T+2"KNIGHTS": PRINT" GATHER" T+1"RATIONS" 

146 PRINT"GIVEN"T"BAGS OF GOLD" 


“ff? 












= 2 ee 














147 
148 
149 
E52 
E53 
L6G 
161 
162 
163 
164 
165 
166 
167 
168 
169 
Ly 


174. 


did 
176 
177 
I32 
184 
186 
187 
188 
189 
19@ 
Ld 
Loz 
194 
LOS 
196 
282 
2G4 
286 
207 
208 
21 
ZAL2 
Z1L3 
214 
216 
218 
219 
224 
225 
226 
228 
238 
249 
24] 
242 
243 


W=W+T+2: TFW>99THENW=99 

R=R+T+12IFR>99THENR=99 

TPR gee eo Nt O+MM* SOTHENG=W*64MMesg 

TF K=3THENPRINT"MORR SBCRUITS":W=W*2: TP 99THRNW=99 
129 , 


PRINT"FIND a BAZAAR.GOING IN Y/N" 
INPUTXS : IFXS$=""nHpN] 61 

IFXS="N"THEN28 

IPXS<>"Y"THRNI61 | 

rel tien yy) 12 0°ENT (RD (8)*3)41 362190 (RWD (9) #5) 
IFT=1THEN173 

IFT=2THEN192 

IFT=3THEN216 

IFT=4THEN238 

IFT=5THEN258 

PRINT FORMS Ee [a a DCH ge PRITAM Bris WF CLL EAH 
PRINT"BUYING Y/N" 

INPUTA 

IFAS="N"THEN129 ” e' 
IPAS<>"Y"THRNI75 

PRINTU"BAGS oF GOLD EACH": PRINT" How MANY RATIONS?" : INPUTpp 
2=G-U*PP: R=R+PP:G070187 

G=G-J*y 

TPG<9OTHENPRINT" NOT ABLE TO pay OWNER KILLS YOu" 

ECC OSOUNS eA BOR cpm oa 
EEGCOSOUNDE 3; Sou S SOUNDS SOON ET og. 
sonogay. 4" #SOUND4, 3: S0UND3/2:SoUNDa’¢ eM 

GOTO092g . 
PRINT" FORSALE" LJ is¢gq ape amg PRIAT OY Bess: QF SIL EA. BLY Dp hy" 
INPUTBS | 

IFBS="N"THEN12g 

TPBS<>"y"THENI9.4 

PRINT" TyHaT IS"J*U"Baggn 

PRINT"AGREE TO PRICE y/n?>" 

INPUTCS 

IFCS="Y"THEN186 

TFCS<>"N" THEN206 

L=INT(RND(3)) ¥ 

TPL@ 1 THEMPR MT hye EFL. y [aS eases 9 et ‘LOTO1L2e 

“oJ -1: IFJ<1THENL=1:G0T0219 , 

PRINT"OK.. . WHAT “BOUT"I*U"BAGS?" : GoTO2g4 
TPMM=1THENL=1:G0T0212 | 

PRIAT FORSALE VO TM m1 ym OLE, CARRIES: 5 GOLD Bers 
PRINT"BUYING Y/N" 

INPUTDS 

IFDS="N"THENI12g 

TFDS<>"Y"THEN224 

U=1:GOTO2g4 

TE'GG=1THENL=1:G0T0212 mace 
PRIHT FOR SAL CLM mf!" poypeyp sc QF GOLD, HEVER BE LosT 
PRINT"BUYING Y/N" 

INPUTES 

IPES="N"THEN129 
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= i 
a > te =o: 





244 
245 
258 
269 
261 
262 
265 
264 
265 
28@ 
282 
284 
286 
288 
29G 
aok 
391 
362 


IFES<>"Y"THEN242 
U=1:GOTO204 
IFHH=1THENL=1:GOT0212 
PEIMT'FORSALE igi iiseg" 9 pyar 
PRINT"BUYING Y/N" 

INPUTEFS 

IFFS="N"THEN12@ 
IFFS<>"Y"THEN262 
U=1:GOTO204 . 
J=INT(RND(@) *12) 41 

IFJ=1THEN3@2 

IFJ=3THEN3@8 

IFJ=5THEN318 

IFJ=7THEN313 

IFJ=9THEN327 

PRINT"ALL CLEAR.NO DANGER" 

GOTO12G 

PRINT"*UNYAPPED TERRITORY*" °. 


SOF GOLD. NEVER BE ILL” 





[3037 1FGG= LTHENPRINT"YOU HAVE A GUIDE!GAIN 2 KNIGHTS" 
364 IFGG=1THENW=W+2: IFW>99THENW=99 

305 IFGG=1THEN12@ 

386 W=W-2:PRINT"NO GUIDE.LOSE 2 KNIGHTS":GOTO129 


308 
(399, 


PRINT"*PLAGUE AREA*" 
IFHH=1LTHENPRINT"YOU HAVE A HEALER.GAIN 2 KNIGHTS" 


(310) L[FHH= 1 THENW=W+2: IFW>99THENW=99 
31° I[FHH=1THEN120 


312 W=W-2:PRINT"NO HEALER.2 KNIGHTS DIE":GOTO129@ 

313 PRINT"*CURSED AREA*" 

314 IFWW=1THENPRINT"YOU HAVE A WIZARD.CURSE FAILS" 

315 IFWW=1THENPRINT"GAIN 2 KNIGHTS": W=Wt+2: IFW>99THENW=99 

316 IFWW=1THEN129 

317 PRINT"NO WIZARD.LOSE 1/4 OF GOLD":G=3*G/4:G=INT(G) :GOTO129 
318 PRINT"*DRAGON ATTACKS*" 
319 IFSS=l1THENPRINT"YOU HAVE THE SWORD.SLAY DRAGON" 

329 IFSS=1THENPRINT"CAPTURE"DW"KNIGHTS &"DG"BAGS GOLD" 

321 IFSS=1THENG=G+DG:W=W+DW: DW=4 :DG=2: IFW>99THENW=99 

322 IFSS=lLANDG>W*6+MM* 50 THENG=W*6+MM*5Q 

323 IFSS=1THENPRINT"LOSE SWORD":SS=@:GOTO129 

324 PRINT"NO SWORD.LOSE 1/4 GOLD & KNIGHTS":DG=DG+G/4 :DW=DW+W/4 
325 DG=INT (DG) :DW=INT (DW) :G=3*G/4:G=INT (G) :W=3*W/4:W=INT (W) 
326 GOTO12@ — 

327 J=INT(RND (@) *W) +INT (RND(@) *W) +1 

328 PRINTJ"BANDITS ATTACK": PRINT"YOU HAVE"W"KNIGHTS" 

329 PRINT"FIGHT OR RETREAT F/R?" 

330 INPUTGS 

331 IFGS="R"THENW=W-2:PRINT"LOSE 2 KNIGHTS IN RETREAT":GOTO129 
332 IFGS="F"THEN336 

333 GOTO033¢ 

336 P=INT(RND (@)*6)+1:Q=INT(RND(Q@)*7)+3 

338 W=W-P:J=J-Q 

340 IFW<1THEN139@ 

342 IFJ<1LTHENPRINT"LOSE"P"KNIGHTS IN THE BATTLE":GOTO036Q 

343 PRINT"LOSE"P"KNIGHTS IN BATTLE":PRINTO"BANDITS DEAD" 














344 


PRINT"SKIRMISH OVER!" 


T3451 TEW-J>3ANDW<20THENPRINT" prt DONE.CAPTURE"J "MEV" 


— 346 
347 
360 
361 
362 
363 
364 
366 
368 
370 
371 
372 
374 
376 
378 
38 
382 
384 
399 
392 

s\ 394 

490 

491 


—~ 446 
448 
449 
45@ 
469 
700 


son? SANDW< 20THENPRINT" DH py JOIN your QUEST" :W=W+J :GOT036g 
GOT0 363 . 
IF SPCC | THEMPR LRT EEL CIM CI A MC i a yg SOWING 7 a 
LEK=3AND Oa THEN e283! SOUND 2 Soa aE SOL 
INT NO O0=1THENSOUND20,8:GoTO1a 9G 

J=INT(RND (0) *8) 47 

TFJ=1ORJ=3THEN372 | 

TF J=20RJ=7THEN376 ‘ 

TPJ=40RJ=5 THEN38g 

TPJ=6ORJ=8THEN38 4 

GOTO 39g 

IFSS=1THEN39g 

ian | ‘PRIA T “[iegepicg ey a) MAGIC oA CURE KILLS: DRAGOMS "> GOTO 
TFWW=1THEN 399g 

bbgex 4 PRINT "Sasi TZ Fe, PROTEC Ts PROM CURSE ROT HS3¢ 
IFK=3THEN39Q 

K=K+1l: PRINT" yoy HAVE Now FOUND" K"KEYS": GoT939g 

PRINT"GAIN 2 T CRUITS”" :W=W+2: TFW>S9THENWH96 

J=INT (RND (8) *1g) 4] 

IP J=STHENPRINT"NG GOLD FOUND": GoT012g 

G=G+4:PRINT"FrINp 4 BAGS or GOLD": GoTo]129 

PRINT"FIND a CAVE.GOING IN Y/N?" 

INPUTUS 

IFUS="N"THEN28g 

IPUS<>"Y"THREN4g] 
GOTO0419 

PRINT"FIND SOMR RUINS.GOING IN Y/N" 
INPUTVS | 

IFVS="N"THEN289 

TPVS<>"Y"THEN4G6 

J=INT (RND (G) *3) 4] 

IFJ=2THEN327 

GOTO 362 ? 
PRINT" YOU ARE at THE CASTLE": PRINT" ygr KEYS IN PROPER ORDER" 
IFZZ=1THEN442 . , 
J=INT(RND(6)) :ZZ=1. 

IFJ=1THENOS="Boqu 2 

ITF J=2THENOS="BGagn 

IFJ=3THENOS="Gopu_ 

IP J=4THENOS="Gpon 

IF J=STHENOS="gRqn ' 4 

IF J=6THENOS="gqpn 

E=1] 0 

PRINT"THE KRyg ARE GOLD,SILVER & BRASS" 

FRIMT "WHT CH KEY Del Bo Cae leq" j LMF LUT Hs 

PRINT eye (OS +E, (1)) THENE=E+1:Goto eg 

PP TAT AM Sao itr TOLD Reg BACK cry THE Port py + OUR Coed 4, 

PRINT"THE CASTLF IS DUR SOUTH" :X=2:GoTo12g 

TPE> 3THENQQ=1:G070327 

Fee ee eeu S SOUND , i edéomowas 

TEX= LANDZS<>"N"DHENT 14 











761 
7862 
703 
704 
705 
706 
707 
708 
709 
710 


711% PRINT"CA 


899 
900 
991 
962 
963 
904 
905 
906 
907 
908 
909 
919 
911 
912 
913 
914 
915 
916 
929 
921 


2886 


| 
} 


IFX=3ANDZ$<>"W"THEN711 
IFX=4ANDZS<>"W" THEN711 
IFX=7ANDZ$<>"S"THEN711 
IFX=9ANDZS<>"E"THEN711 


IFX=8ANDZS="S"THEN711 
IFX=6ANDZS="W"THEN711 
IFX=5ANDZS="N"THEN711 


IFX=2ANDZ$="S"ANDK<>3THEN716 


GOTO104 
PRINT" YOU NEED 3 KEYS 


N'v GO THAT WAY":GOTO104 
LIFX=1LANDZS="N" THENX=2 : GOTO 280 
LFX=2ANDZS="N" THENX=5 : GOTO280 
LIFX=2ANDZS="S"THENX=1:GOT0432 
IFX=2ANDZS="E"THENX=3:GOTO168 
IFX=2ANDZS="W" THENX=8 : GOTO 289 
IFX=3 THENX=2:GOTO289 
IFX=4THENX=5 : GOTO 289 . 
IFX=5ANDZS="E"THENX=4 : GOTO496 
IFX=5ANDZS="W" THENX=6 : GOTO 280 
LIFX=5ANDZS="S"THENX=2 : GOTO289 
IFX=6ANDZS="N"THENX=7 :GOTO149 
L[FX=6ANDZS="S"THENX=8 : GOTO 280 
TFX=6ANDZS="E"THENX=5 : GOTO 286 
IFX=7THENX=6 : GOTO289@ 
IFX=8AND Z$="N"THENX=6 : GOTO289 
[FX=8ANDZS="E"THENX= 2 : GOTO 280 , 
LFX=8ANDZS="W" THENX=9 : GOTO495 


LFX=9THENX=8 
LFT=2THENW=W+U 
LFT=3THENMM= 1 

IF T=4THENGG=1 
IFT=5THENHH= 1 

GOTO12@ , 
PRINT"YOUR SCORE IS" 


SCHYY+50* (GG+HH+WW+SS+MM) +1000*K+1500*E+50* (G+RtW) 
PRINTSC s 

PRINT"HIT ANY KEY TO START" 
INPUTZZ$:1F2ZZ9=""THEN1935 

RUN4 

CLS$:PRINT: PRINT: COLOR8 

PR IT"  ;mAsae) al == WSR 

PRIWT " eo 6UllU 

re TMT" a ee 

Re Tt" oe oe oe 

Fhe THT wo mueller 

PRINT: PRINT 

COLORE : FR IMT" Scamaamss «= SSN RN" 
en ee ee i 4 a 

PRINT" i Heh a 6m 

PRINT _e|6h6l he 0m" 

PRIMT" re ae ae 

PR IMT" w 


TO ENTER CASTLE" :GOTO19@ 
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2007 PRINT" BY C.KENYON" 


> SOUND2@, 3 
OO0:NEXT 


2919 SOUND17,2:SOUND29,3:SOUND17,2 


2915 SOUND17,3:SOUND29,8:FORI=1702 
2028 GOTO4 


merry yy) | eu 
_ Ty 


eh tiatiryirn 

“eee? Pit Pi 

“cee 2a Tite 
tite 20sec eee 
ate 6 Oe Pe 


Lt BELT TTT y) 


SSipiiis | MMB cs Do ha as 
SULIT cence ste eeet tee Teer | |i S1eT 
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Rol 


Who knows you just might wi 


lL. Up, 


POKER MACHINE 
Requires 16K RAM Pack 


Take a chance at the VZ-20@ casino! 
n - but then again you might not! 


rol. Wo, Fol. op! 


CLS:COLOR 2,9 


PRIMT 
PRINT 
PRINT 
Fe LMT 
PRINT 
PRINT 
PRINT 
PRINT 
Pr LMT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


W130 aC Sh WS Ws 
WRITTEN BY: K.J.TYRRELL 


"10: PLAY» " 

"PRESS THE SPACE 
"BUTTON WHEN THE 
"PULL LIGHT IS 
"GREEN. OTHERWISE 
"PRESS THE (E) " 
"BUTTOM IF “ei 
"WISH TO QUIT. 
"NOW, ENTER THE 
"NO. OF COINS YOU 
"WISH TO BEGIN 
"Wir {lL TO O98). 
"NOW PRESS RETURN. 
CN 


BATS Le sa we 
_ 10¢" 
5g" 
aes 


A il 


A A 
K K 


(a oS aS 

9 Q Q 18" 

a ah @ 1g 
18 10 10 8" 
10 16 - a 
1g - =" 


IF CN>999 GOTO 1@ 
IF CN<l GOTO 10 
CNS="@00":PXS=" "epys=" 
MODE(1):COLOR 2,9 
GOTO 200° 
FOR Y=2T0O6 
Sei (ky) SET (X41, 7) 
NEXT: RETURN 
REM T 
X=9:GOSUB 100 ; 
SET (7,2) :SET(8,2) :SET(7,3) :SET (8,3) 
SET (11,2) :SET(12,2) :SET(11,3) :SET (12,3) 
REM H on 
X=14:GOSUB 100:X=18:GOSUB 190:SET(16,4) :SET(17,4) 
REM E 
X=21:GOSUB 100:SET(23,2) :SET(24,2)3:SET (25,2) :SET (26,2) 
SET (23,4) :SET(24,4) :SET (23,6) :SET(24,6) :SET(25,6) :SET (26,6) 
REM P .*% 
X¥=31:GOSUB 100:SET(33,2) :SET (34,2) :SET(35,2) :SET (36,2) 
SET (35,3) :SET(36,3) :SET(33,4) :SET (34,4) :SET(35,4) :SET (36,4) 
REM O , 
X=38:GOSUB 1990 
X=42:GOSUB 1990 
SET (40,2) :SET(41,2) :SET (40,6) :SET(41,6) 
REM K 
X=45:GOSUB 100:SET(49,2) :SET(5@,2) :SET (48,3) :SET (49,3) 
SET (47,4) :SET (48,4) :SET (48,5) :SET(49,5) :SET (49,6) :SET (50,6) 
REM E 
X=52:GOSUB 100:SET(54,2) :SET(55,2) :SET (56,2) :SET(57,2) 
SET (54,4) :SET (55,4) :SET(54,6) :SET(55,6) :SET(56,6) :SET(57,6) 
REM R 


"spzs=" 


sp ST me 





teenies — 
ese 


| 719 





420 
439 
449 
45@ 
469 
47G 
489 
49G 
SOO 
519 
526 
539 
54 
55 
56d 
57G 
58 
5 IG 


600. 


°61G 
620 
639 


| 649 


659 
669 
674 
689 
699 
76 


SOG 
810 
829 
83G 
834 
836 
849 
85 
869 
870 
889 
899 
99D 
9G2 
919 
920 
939 
949 
959 
968 
979 
98 
999 


REM R 
X=59:GOSUB OP ean one 2) SET (62,2) tSET (63,2) SET (64,2) 

SET (61,5) 1357 (ea t2) SET (61,4) :SBT (62,4) :SET (63-4) Ser y64..4) 
REM mM’) *S2T(62,5) :SB (62,6) ET (63,6) SET (ea a) 

REM M 

X=69:GOSUB 19g \ 

X=76:GOSUB 199 

SED (744) ieee (ela) SET (72,4) 880 (72,5) SE0(73,5) sS87(73.,6 
mem ni? 4) FSET (74,5) :SET(75,3) sSEP (75.4) 

REM A , 

X=79:GOSUB 199 

X=83:GOSUB 19g 

REM CSP? (81,2) :SET (86,4) :SEr(81,4) :sEn(82,2) :sEn (82,43 
REM C 

X=86:GOSUB Or (8o a oot 2) SET (89,2) :SET (96,2) :SEP(91,2) 

PEM eo) FSET (89,6) :SBT (99,6) : SET (91,6) 

REM H : 

X=93:GOSUB 19g 

X=97:GOSUB 199 

SET (95,4) :SET (96,4) 

REM I 

X=106:GOSUB 19g 

REM N 

X=1863:GOSUB 199g 

X=188:GOSUB 19g 

REM Bo) *SET(106,3) :SB0 (106, 4) :SET(107,4) :SET(107,5 

REM FE 

X=111:GosuB BT (ida reat) $SET (114, 2) :SET(115,2) :SE9(116,9) 
SET (116/6) oer (tt4e4) #SE0 (113, 6) :SET(114,6) :8hr (ited 

SET (116,6) 

REM BLUE BACKGROUND 

COLOR 3 

TU=29280:YU=29399:FoOR W=1TO2:FOR Z=TUTOYU: POKE Zi l7O:NEXT 
TU=TU+32 2 YU=YU+32:NREXT 

TU=29344:YU=29346:FoR W=1T029:FOR Z=TUTOYU: POKR Z,170:NEXT 
TU=TU+32 2 YU=YU+32:NEX? “ 

FOR W=12T014:FoR Z=21T049 

SET (W,Z) :NEXT: NEXT 

TU=39272:YU=30301:FOR W=1T014:FOR Z=TUTOYU: POKR Z,l170:NEXT 
TU=TU+32:YU=YU+32:NEX? . 

TU=29364:YU=29373:FOR W=1T029:FOR Z=TUTOYU: POKE Z,170:NEXT 
TU=TU+32 : YU=YU+32:NEXT  y 

FOR 4=43T048:SET(12G,Z) :NEXT:FOR W=123T0124:FOR Z=177049 
SET (W,Z) :NEXT:NEX? 

FOR Waren eet (122,46) SEP (121,46) :sEr(122 46) 

FOR W=121T0126:FOR Z=11T016:SRT (W,Z) :NEXT:NEX? 

REM YELLOW INSERT 

COLOR 2 

FOR W=15T079:FoR 4=21T023:SET(W,Z) :NEXT:NEX? 

FOR W=15T019:FOR 4=24T049:SET(W,Z) :NEXT:NEXT 

FOR W=20T079:FOR 2=47T049:SET (W,Z) :NEXT!NEXT 

FOR W=35T039:FOR 4=247T046:SET(W,Z) :NEXT:NEXT 

FOR W=55T059:FOR 4=24T046:SET (W,Z) :NEXT!NEXT 


1600 FOR w =/51079.2ROR 4=24T046:SET(W,Z) :NEXT: NEXT 





= “24 — 








1918 REM JACKPoTs 

1820 COLOR 2 

1930 FFOR W=92T095:FOR Z=22TO24:SET(W,Z) s:NEXT: NEXT 

1948 FOR W=92T095:FOoOR Z=29T031:SET(W,Z) :NEXT:NEXT 

1050 FOR W=92T095:FOR Z=36TO38:SET(W,Z) :NEXT: NEXT 

1868 GOTO 110g 

1978 FOR W=ATOB:FOR 4=CTOD: SET (W,Z) 2NEXT: RETURN 

1190 SET (162,21) :A=103:B=103:C=21:D=25:GOSUB81979 

1119@ SET (191,25) :SET (162,25) :SET (104,25) :SET(105,25) 

112¢@ A=197:B=107:C=21:D=25:GosuB 107@ 

113@ SET (198,21) :SET (169,21) :SET (110,21) :SET (108,25) 

114¢ SET (199,25) :SET(119,25) 

1158 A=111:B=111:C=21:D=25:GosuB 197@ 

116@ A=113:B=113:C=21:D=25:GosuB 107@ 

117@ A=117:B=117:C=21:D=25:GosuB 187 

118¢ SET(114,21) :SET(115,21) :SET(116,21) 

119@ SET (114,25) :SET(115,25) :SET(116,25) 

1200 A=28:B=101:C=195:GOSUB1399 

1218 A=28:B=107:C=111:GOSUB139g 

1220 A=30:B=101:C=195:GOSUB139g 

1230 A=32:B=101:C=105:GOSUB139g 

1249 A=32:B=107:C=111:GOSuUB139g 

1258 A=35:B=101:C=105:GOSUB1399 

1268 A=35:B=107:C=111:GOSUB139g 

1278 A=37:B=191:C=105:GOSUB1399 ' 
1280 A=37:B=107:C=111:GOSUB139g 

1299 A=39:B=101:C=105:GOSUB139g 1 
1308 A=39:B=107:C=111:GOSUB139g 

131@ SET (101,29) :SET (105,31) :SET (107,29) :SET (197,30) 

1320 SET (107,31) :SBT (111,29) :SET (111,38) :SET(111,31) 

133@ SET (105,36) :SET(101,38) :SET (167,36) :SET(111, 38) , 
1348 GOTO 1419 
13986 FOR Y=ATOA:FOR X=BTOC: SET (X,Y) :NEXT:NEXT: RETURN 

1400 REM PULL fr 

1410 GOTO 1459 

1420 FOR I=53T059:SET(L,I) :SET(L+1)1I) :NEXT: RETURN 


145@ 
_ L455 
1457 
L460 
147 
L48@ 
L49@ 
1506 
151@ 
1526 
153@ 
1549 
155@ 
156@ 
157 
158@ 
159@ 


L=21:GOSUB 1429 
L=38:GOSUB 1429 
L=35:GOSUB 1429 
L=39:GOSUB 1429 
L=47:GOSUB 142g 


FORI=23T027:SET (1,53) :NEXT 
FORI=23T027:SET(1I,56) :NEXT 


SET (26,54) sSET( 


27454) :SET (26,55) :SET(27,55) 


SET (32,58) :SET (33,58) :SET (34,58) 
SET (32,59) :SET (33,59) :SET (34,59) 
SET (41,58) :SET (42,58) :SET(43,58) :SET (44,58) 
SET (41,59) :SET(42,59) :SET(43,59) :SET(44,59) 


SET (49,58) :SET (50,58) 
SET (49,59) :SET (50,59) 


COLOR 2 


sSET (51,58) :SET(52,58) 
sSET (51,59) :SET (52,59) 


FFOR T=54T058:SET(58,1) :NEXT: FOR T=54T058:SET (62,1) :NEXT 


SET (59,54) :SET (60,54) 


:SET (61,54) 
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169¢ MOLGh ge)? SET (68,58) :SET (61,58) 
1685 COLOR 4 

1610 FoR IT=59T061:FOR Sse ATOS 7980 (T..5) aNERTeNEeR 
1620 REM COINS 

1625 COLOR 2 

1638 GOTO 165g ‘ 

1646 FoR T=48T052:FoR SSATOA?SET (J, 1) :NEXT:NEXT: RETURN 
1659 A=96 :GOSUB164g 

1669 A=181:GOSUB164g : 7 

1679 A=104:GOSUB164g . 

1689 A=196:GOSUB164g 

1699 A=168:GOSUB164g 

1700 A=112:GOSUB1649g 

1719 SET (90/42) $SET (98,48) :sEr(99, 48) 

1729 SEM rego2) *SET (98,52) seen (og 52) 

1739 SEP (109,49) seer (293748) sen (192,52) ssm0(193,59, 
1749 SET (199,49) SED (110 42) $SET (110,50) :sEr (111 ‘eq; 
1750 SET(111,51) SET (1g 8) $SET (115,48) :SET (116/40, 
1760 SET (117,48) SET (114! 4g) $SET (114,56) :ser (115/59. 
+770 SET (116,59) :spr(117 26) $SET (117,51) :sEr(117/59; 
1789 SET (114,52) SET (115,52) :ser(116_ 

1784 REM srr BLOCKS IN RR 

1785 GOSUB 4ggg 

1789 REM SEP pypr TO GREEN 

1798 GOSUB 2999 

1800 REM actIoNn COMMENCES 

1865 GOSUB 659g 

1818 KS=INKEyS 

1820 IF Kg=" un GOTO HOA Gono 

1825 IF Kg="pn GOTO 839g ! 

1838 GOTO 181g 

1849 KS="Q9" 

1842 REM SET pyLr TO RED 

1843 GosuB 295g 

1849 REM CLEAR REELS 

1858 GOsUB 229g 

1868 REM BRANCH TO REEL MOVER 

1878 GOsUB 259g ¥ 

1889 REM CHOOSE CARDS 

1885 GosuB 2299 

1899 y=24 

1986 FOR wW=1703 

1919 X=RND (17) 

1915 IF x=1 Goqo 4209 

1920 IF x>1 anp X<5 GOTO 3999 

1930 IF x>4 anp X<8 GOTO 329g 

1946 IF x>7 anp X<1l GOTO 3499 

1950 IF xX>19 anp X<14 GOTO 3699 

1966 IF x>13 anp X<16 GOTO 375g 

1978 IF x=16 Goro 3909 

1975 IF X=17 Goro 3909 

1986 IF y=24 pHRY ONE=RES 

1996 IF y=44 TyRN TWO=RES 
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2000 
2005 
2061 
2020 
Z1L99 
22900 
2219 
222G 
22390 
224G 
2499 
2509 
2505 
2519 
ZoL5 
2520 
25390 
2540 
2545 
2550 
255:9 
2569 
2899 
2989 
2905 
2919 
2949 
295G 
2969 
2970 
2999 
3080 
3819 
3920 
383 
3840 
3059 
3199 
3200 
3219 
3229 
3239 
3599 
3499 
3419 


343G 
3449 
345¢ 
S099 
368 
3619 
3629 


IF Y=64 THEN TRE=RES 


FOR Q=1TO3890:NEXT 


Y=Y+2@0:NEXT 

GOTO 459@ 

REM RTN CLEAR REELS 
K=29638 

FOR Z=1TOLL 


POKE K,@:POKE Kt+1,@:POKE Kt5, Os POKE K+6, f 


POKE K+10, 9: POKE K+ll, Q 


K=K+32:NEXT: RETURN 
REM ROLL 3 REELS 


D=G 
L=179 


K=29638 


D=D+l:IF D>18@ THEN RETURN 


FOR Z=1TOl1 


POKE K,L:POKE Kt+1l,L:POKE K+t+5,L: POKE K+6,L 


POKE K+1@,L:POKE K+11,L 
K=K+32 


NEXT 


IF L=85 GOTO 2565 
L=85:GOTO 2519 


REM SET PULL TO GREEN 
COLOR l 

SET (59,55) % 
SET (61,56) 
REM SET PULL TO RED 
COLOR 4 
SET (59.,55) 
SET (61,56) 
REM DISPLAY 
COLOR 3 

SET (Y+3 ,32) 
FOR V=32T038 
SET (Y,V) 
SET (Y+3, 38) 


SET (69,55) 
¢SET (59 ,5/) 


sSET (60,55) 
SSET (59,57) 


1@ 


sSET (Y+4,32) 


SST (¥t2.,V) 
2SEP(Y +4 ,.38) 


RES=18:GOTO 19898 


REM DISPLAY 
COLOR 3 
FOR V=Y+1TOY+6:SET(V,32) :NEXT:FOR V=33T038: SET (Y+4,V) :NEAT 


SET (Y,37) SET (441535) % 


JACK 


eSET(Y,38) * 


RES=11:GOTO 1980 


REM DISPLAY 
COLOR 2 

SET (Y+1,32) 
34420 FOR V=32T0O38:SET(Y,V) 
SET (Y+4,36) 
SET (Y+1,38) 


QUEEN 


SET (Y4+2,32) 


RES=12:GOTO 1989 


REM DISPLAY 
COLOR4:SET (Y+1,32) 
Sar (¥+1,.334 
SET (Y+1,34) 


KING 


:SET (61,55) 
: SET (60,57) 


sSET(Y+6,32) 
SET (Y+5,33) 
°SET(Y+4,34) 


i 


>SET (61,55) :SET(59,56) :SET (69,56) 
:SET (69,57) 


SET (6155/7) S$ RETURN 


>SET (59,56) :SET (690,56) 
;SET(61,5/7) : RETURN 


> SET (Y+5,32) 


>SET(Y+6,V) sNEXT 
:SET (¥+5 ; 33) 


SET (Y+2,38) :SET(Y+3,38) 


°SET (Y+3,32) :SET (¥+4,32) 
SET (Y+5,V) < NEAT 
SEU (Y 46.27 


>SET(Y+2,38) :SET(Y+3,38) :SET(Y+4, 38) 


; 
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363¢ SET (erp? 20) $SET(¥+2, 35) :SEP(¥+3, 35) 

3649 SET (Y¥+1,36) :SET (y+4, 36) | 

365@ SET (Y+1,37) :SET(Y+5, 37) 

366@ SET (Y+1,38):SET (Y+6, 38) 

3678 RES=13:GoT0 198Q 

3749 REM DISPLAy ACE ‘ 

3758 COLOR 2 \ 

3768 FOR V=YTOY+6:SET(V,32) 

3765 NEXT:FOR V=33T038 

3766 SET (Y,V) ui 

57-90 SET (Y+6,V) :NEXT::FoR VSY+LTOY+S sSET(V,35) sexe 

3780 RES=14:GoT0 198g 

3899 REM DISPLAY BaR 

3988 COLOR 4:FOR V=¥TOY+7 3 SET (V,33) nex 

3918 COLOR 5 SET (¥+1,35) :SEr(y46, 35) 

3928 COLOR <?SET(Y+3,35) :Ser(y+4/ 35) 

3938 COLOR 4:FOR VY TOY+7:SET(V,37) «NEXT 

394g RES=15:GoT0 198g 

3999 REM spr BLOCKS IN REELS 

4998 COLOR 3 

49190 X=24:Y=31:7=3g 

4915 FoR W=1T03 

4820 FOR A=XTOY 

4939 SET(A,Z) :NEx? 

49049 Z2=Z+1:tp 4>48 GOTO 496g 

4958 GOTO 4929 

4060 A=X+26 2 Y=Y+29:7=3g 

4070 NEXT: RETURN 

4199 REM DISPLAY NInR 

4298 COLOR 3 | 

4218 FoR 1,34) oR rere 522) ‘NEXT SET (Y, 33) ssEn(y45, 33) 

4229 SET (Y,34) :SET(¥+5, 34) | 

4230 FOR =vnOveS sep (Wy " 30) NEXT: SED (v45, 36) sSED (45,37 
8) 


“218 IF ONE=16 GoTo sggqg . 
4528 IF ONE=TWO anp ONE=TRE GOTO 489g 
7239 IF ONE=TWO AND ONE=1g GOTO 4749 
7240 IF ONE=19 GoTo 46gqg 

4559 GoTo 5agg 

4600 CN=CN+4:GoTO 496g 

4708 CN=CN+6:GoOTO 496 

“800 IF ONB=11 cN=cy+11 

7895 IF ONE=19 CN=cN+9 

#810 IF ONE=12 cnécnysjo 

*820 IF ONE=13 GoTo 495qg 

*830 IF ONE=14 GoTo 49gq 

*840 IF ONE=15 GoTo 495g | 
4842 sounD 28/2324 11267 H1e "bé19+119,2519,1319,1;24,2;96.¢ 
4843 souUND gig 7 47272811731, 9729/1326, 1324/2199 dione 

4845 GoTo 591g 





178501 CN=CN+26:U=36:GOSUB 6999 

4868 GOTO 5019 

4998 CN=CN+51:U=29:GOSUB 6090 7 
4918 GOTO 5019 \ 
4959 CN=CN+101:U=22:GOSUB 6909 

4955 GOTO 5019 oii | 

4968 SOUND 28, 27523,1723,1524,2723,2;0,1;27,2}4,28,2 
4978 GOTO5@19 | 

4999 REM RTN TO PRINT COINS 

9988 SOUND 4,3;6,1;7,2;4,2;10,4 

5085 IF CN<l GOTO 850g 

5818 GOSUB 659¢ 

5820 KS=INKEYS:GOTO 1799 

5998 REM SET JACKPOT DOT ON AND 

5999 REM OFF WITH SOUND 

6000 IF U=22 xy=29399 

6001 IF U=29 xyY=29623 

6002 IF U=36 XY=29847 

6885 GOSUB 649¢ 

GYEOOSOUND 11,1¢11,1311,1#7,7 


Be 6400 
6G31\SOUND 9,1;9,1;9,1;6,7 


6832 GOSUB 640¢ 

6934 FOR IB=1T02:SOUND LM Piet tof pelle g lef) pbP deg hPa LF 1 Se 114 eT 

6848 SOUND Lo ph LO y LPL 12164 

6842 SOUND @,1 

6943 NEXT ad 

6044 GOSUB 6494@¢ 

6445 SOUND 23,1;23,1;21,1 | 

6058 FOR IB=1T02:SOUND L945 1871323, 1321,1 

6068 NEXT:SOUND 19,4;16,4;23,6 

6078 GOSUB 64@4¢ 

6988 RETURN 

6400 FOR IB=1T03 , 

6418 POKE XY,17@: POKER XY+32,170:POKE XY+64,17@ 

6415 FOR EE=1T05:NEXT 

6420 POKE XY,85:POKE XY+32,85:POKE XY+64,85 

6430 NEXT:RETURN | 
{6499 /REM PRINT NO OF COINS 

6508 CNS=STRS (CN) 

6510 IF LEN(CNS)=2 GoTO 6559 

6520 IF LEN(CNS)=3 GOTO 6569 

6530 IF LEN(CNS)=4 GOTO 6589 

6548 GOTO 8@8@ 

6558 AZS=RIGHTS (CNS,1) 

6555 AXS="@0"sAYS="Q0":GOTO 6609 

6560 Axs="g" 

6562 AYS=MIDS (CNS ,2,1) 

6564 AZS=RIGHTS (CNS,1) 

6566 GOTO 66@¢ 

6580 AXS=MIDS (CNS,2,1) 

6582 AYS=MIDS (CNS,3,1) 

6590 AZS=RIGHTS (CNS,1) 


eS a 








6699 
6629 
664g 


6669 
6679 


| 6699 
| 6692 
6694 
6696 
| 6999 

7009 


7930 
784g 

705 

7055 

7869 

7070 

7089 

7899 


/ | 70.26 


a 





7105 
7119 
7126 
| 7139 
714 
7145 
715@ 
7160 
7170 
7189 
7199 


en 





209 
7219 
b 7229 
f 7239 
: 724g 
| _7309 
| . 7319 
7320 
7330 
734g 
74090 
7419 
7429 
7439 
7449 


IF AZS=PZS GOTO 664g 


g CP=113:NU=VaL (azs) 
g 


PZS=AZS 
IF AYS=pys GOTO 668g 
P= 107:NU=VaAL (ays) . 
GOSUB 799g 
PYS=AYS 
IF AXS=pxg GOTO 6696 . 
< P= 101:NU=VaL (axs) ‘a 
GOSUB 7999 
PXS=AXS 
RETURN 
REM ACTUALLy PRINT Corns 
IF NU=6 GoTo 719g | 
IF NU=] GOTO 715g 
IF NU=2 Goro 720 
IF Nu=3 GOTO 739g 
IF NU=4 Goro 7409 
IF NU=5 GoTo 7500 
IF Nu=6 GOOTO 769g 
IF NU=7 Goro 7780 
IF NU=8 Goro 7809 
IF NU=9 GoTo 7909 
Gg 


COLOR 567058 ssh epee? (CP+3,55) : SED (Cpag, 55, 
FOR Faron im BERGE AN TSER SES wy eshn epee 
XT 


COLOR 42 SET(CP+1,55) :rop on) SEN CHEZ By sommes, 
Song 739g) “SHR(CH+1, 59) ssBn (ones, sont cet 2eM) se 
GOTO 799g N 

COLOR 3 


COLOR 3:FOR M=56T058 STEP2 >FOR N=CPTOCP+3 





745@ 
746@ 
7158@ 
7516 
7529 
13525 
153@ 
768 
761@ 
7620 
7639 
764@ 
765@ 
7170@ 
771@ 
772@ 
7860 
781G 
782G 
7830 
7849 
785@ 
796 
791@ 
7920 
7939 
7999 
8 OGG 
801 
8020 
8939 
8B4G 
8059 
8060 
8078 
808 
8898 
8199 
8119 
8129 
813¢ 
8149 
815¢ 
816G 
8309 
831¢ 
832G 
833G 
834G 
835G 
836G 
8370 
8389 


FOR N=CPTOCP+4:SET(N,57) :NEXT: FOR N=55T0593:SET (CP+3,N) 
NEXT:GOTO 799@ 

COLOR 3:FOR N=CP+1TOCP+4:SET(N,56) :NEXT 

FOR N=CPTOCP+3:SET(N,58) :NEXT ; 
COLOR 2:FOR N=55T059 STEP2 
FOR M=CPTOCP+4:SET(M,N) ' 
NEXT: NEXT: SET(CP,56) :SET(CP+4,58) :GOTO 7999 

COLOR 3:FOR M=55T056:FOR N=CP+1TOCP+4:SET(N,M) :NEXT:NEXT 
SET(CP+1,58) :SET (CP+2,58) «SET (CP+3,53) 

COLOR 2:FOR N=55T059:SET(CP,N) :NEXT 

FOR N=CP+1TOCPt+4:SET(N,5/7) 

NEXT: SET (CP+4,58) sFOR N=CP+LTOCP+4:SET(N,59) :NEXT 

GOTO 799@ 

COLOR. 3:FOR N=56T059:FOR M=CPTOCP+3:SET (M,N) :NEXT: NEXT 
COLOR 2:FOR N=CPTOCP+4:SET(N,55) :NEXT 

FOR N=56T059:SET(CP+4,N) :NEXT:GOTO 7996 

COLOR 3:SET(CP+2,56) :SET(CP,57) :SET(CP+4,57) sSET(CP+2,58) 
COLOR 22.FOR N=CPTOCP+4:SET(N,55) :NEXT: SET (CP,56) 

SET (CP+1,56) :SET(CP+3,56) :SET(CP+4,56) :SET(CP+1,57) 

SET (CE+2,57) SBT (CP+3,57) SET (CP,58) SET (CP+1L,58) 

SET (CP+3,58) :SET (CP+4,58) 

FOR N=CPTOCP+4:SET(N,59) :NEXT: GOTO 7999 

COLOR 3:SET(CP+1,56) :SET(CP+2,56) :SET (CP+3,56) 

FOR N=58T059:FOR M=CPTOCP+3:SET(M,N) :NEXT: NEXT 

COLOR 2:FOR N=55T057 STEP 2:FOR M=CPTOCP+4:SET (M,N) :NEXT 
NEXT?ESETR (CP, 56) ¢ FOR N=56T059:SET(CP+4,N) :NEXT:GOTO 7999 
RETURN © 

MODE(@):COLOR 5,1 

PRINT "IT WOULD APPEAR THAT YOU HAVE" 

PRINT "BUSTED THE BANK. 

PRINT "YOU THINK YOU ARE SO SMART." 

PRINT : 
PRINT “MAY I INTEREST YOU IN, ANOTHER" 

PRINT "GAME. IF YES, PRESS THE" 

PRINT "(C) BUTTON" ~ 

PRINT 

PRINT “IF NO, AND MAY I SAY YOU APPEAR" 

PRINT "TO LACK COURAGE, PRESS THE"* 

PRINT "(E) BUTTON.":PRINT 

PRINT "HAVE A NICE DAY" 

FUS=INKEYS 

IF FUS="C" GOTO 19 

IF FUS="E" GOTO 86698 

GOTO 813¢ 

MODE(@):COLOR 4,1 

PRINT "SO YOU'RE A QUITTER,HEY." 

PRINT “JUST WHEN I WAS ABOUT TO" 

PRINT “MAKE A KILLING." 

PRINT “SO BE It.” 

PRINT “NEXT TIME YOU MAY NOT BE" 

PRINT “SO LUCKY," 

PRINT “SEE YOU LATER. ™ 

PRINT: PRINT 
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8399 END 
| 8599 MODE(G) :coror 6,1 
8519 PRINT “SORRY, YOU HAVE RUN OUT OF corNg.n 
8520 PRINT "Typ POKER MACHINE [5 MY NAME," 
8538 PRINT "KEEPING your COINS IS my Gamyp.u 
| 8540 PRINT "HA pan ‘ 
| | 8550 PRINT 
da $568 PRINT "IF yoy WISH TO srapp AGAIN,WITH" 
E | | 8579 PRINT "MORE OF YOUR LovEry COINS" 
aa 8589 PRINT "pRRgg THE (C) BUTTON.": prin 
| 8590 PRINT "Tp YOU HAVE No DESIRE FoR qn 
| 8609 PRIN? "FURTHER INVESTMENT, PRES THE" 
r | | 8618 PRINT "(@) BUTTON" 
| 8629 FIS=INKRys$ 
t | 8639 IF Frg=an GOTO 19 
| 8649 Ip PIS="E" Goro 8669 
7 8658 GoTO 862g 
8669 CLS:coLoR g g 


8689 END 
Jo00 / 
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8670 PRINTR som.‘ PRONE" PRINT + PRT ‘PRIN 
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ROULETTE 


Requires 16K RAM Pack 


Why travel to the Casino? With this program you can enjoy all 
the thrills of the game at home! Your computer will take your 
bets, spin the wheel, and even keep track of your money for 

you. Can you break the bank? ? 


\ 


19. Gms “ 
20 PRT TS. OPM en aie LACT eC EU Mt lig pa 

25 TS="(BY GARY J MCCLEARY)" 

38 FORG=1TOLEN (TS) 

35 PRINT@133,RIGHTS (TS,G) ; 

3 aN ESCT 

40 PRINT GARS 1. URES THES pater egi: 

4A = 2 

45 KS=INKEYS 

58 IS=INKEYS$:C=RND (J) 

55 J=J+l:IFJ>200THENJ=2 

68 IFIS=""THEN5@ 

65 IFIS<>" "THENS5@ 

69 CLS 

74 PRINT@65,"IN ROULETTE YOU CAN BET ON MANY" 
76 PRINT@98,"COMBINATIONS OF NUMBERS AND" 

78 PRINT@130,"THE ODDS ARE PAID ACCORDINGLY." 


89 PRINT@162,"SOME COMMON BETS ARE:" 
82 PRINT@196,"ODDS OR EVENS ee 

84 PRINT@228,"RED OR BLUE 1 To 1" . 
86 PRINT@269,"1 NUMBER 35 TO 1" 

88 PRINT@292,"2 NUMBERS ~ 17 TO 14 

99 PRINT@324,"3 NUMBERS i, Ge 18 

92 PRINT@356,"4 NUMBERS § To 1" 

94 PRINT@388,"6 NUMBERS “5 T@ 1" ! 

96 PRINT@419,"12 NUMBERS 2 nS 

98 FRINTRAS oe MURMBERS be Th 


LOO PR TM TiS 8 pepe pag rane a age: 

118 KKS=INKEYS 

120 ITIS=INKEYS:IFIIS=""THEN12@ 

L3G IFLIs<>" "“THEN129 

479 CLS ! 

480 PRINT"WHAT IS YOUR STARTING BANK?" 
481 INPUTBA ' 
500 E=@:0=0:R=0:B=@ 

5 Ol AS=""sBS="e 

5@2 S1=0:S2=0:S3=0:S4=@ 

565 PRINT CTVE ME THE RUM To peop 
586 INPUT"ON ODDS OR EVENS";0 

510 IFO=08THEN600 

519 PRINT"DO YOUR WISH TO BET ON" 

528 INPUT"ODDS(O) OR EVENS (E) "3AS 

5340 IFAS="0"THENE=@ :GOTO546 

546 IFAS="E"THENE=0:0=@:GOTO546 

545 E=0:0=@ 

546 CLS 

600 RETA T CIWE MME THE SWIM To fact 


er SERS ae 


} 
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610 IFRB=$THEN646 

626 PRINT"DO yoy WISH TO BET on" 
621 INPUT"RED(R) OR BLUE (B)"sBg 

639 ope wk, THENR=RB:B=9:GOTO6 46 
649 “Le. B'THENB=RB:R=9:GOTO¢A¢ 
646 cLs 

668 PRINT"you may HAVE UP TO qn 

G61 PE TMT “Etiam egy Sep 

662 PRINT" HOW MUCH DO YOU WISH TO BRD ON" 
663 INPUT"l op STRING BET": 9] ‘ 


\ 


neta 
' 710 IFS1=0THENOQGG 


720 PRINT"GIVE ME THE FIRST AND baAsT™ 
gen INPUT"NUMBER OF YOUR STRING";N1,N2 
125 IFN1<1THENN1=] 


74@ PRINT"HOW MUCH TO BET ON 2NnpD STRING" 
741 INPUTS2 

750 IFS 2=0THENOQGY 

760 PRINT"FIRST anp LAST NUMBERS PLEASE" 
761 INPUTN3,N4 

765 IFN3<1THENN3=] 

766 TFN4>36THENN4=36 

770 L2=ABS (N4-N3) +] ° 

77S CLS 

780 PRINT" HOW MUCH TO BET on 3RD STRING" 
781 INPUTS3 

790 TFS3=@THENOGG . 

8 OG PRINT"FIRST anp LAST NUMBERS PLEASR" 
801 INPUTNS,N6 . 

805 TFNS<1THENN5=] 

806 TEN6>36THENN6=36 

810 L3=ABS (N6-N5) +] 

S15 CLs [sod 

820 PRINT"How MUCH TO BET on 4TH STRING" 
821 INPUTS4 ‘ 

830 IFS4=9THENOGG 

849 PRINT"FIRST anp LAST NUMBERS PLEASE" 
84] INPUTN7,N8 

845 IFN7<1THENN7=1 ie 

846 TEN8>36THENN8=36 4 

85¢ L4=ABS (N8-N7)+] 

980 W=BA : 

919 ba=BA-O-E-R=R~S1-52-534c4 

920 ITFBA>=@THENLOOG 

921 CLS:BA=w 

922 PRINT" yoy WILL NEED MORE MONEY FOR " 
923 PRINT" ary, THAT," 

924 PRINT" yoyr BANK [S STILL="INT (Ba) 


/ 925, GOTOS gg 


= 84. <= 

















198 
1GO1 
1GG3 
1819 
1829 
1100 
1119 
1 ee 
Lii2 
Lis 
LIYsS 
11290 
119@ 
A) 
1205 
1207 
1210 
AS 
P27 
L229 
L225 
L227 
1236 
1235 
1309 
L3@5 
131@ 
L315 
Lou / 
132G 
1325 
140 
1492 
1464 
1406 
1408 
141G 
1412 
1414 
1416 
1418 
1429 
1422 
1424 
1426 
1428 
1430 
1432 
1434 
1449 
145@ 
150@ 
169 


SP=RND (38) 

CLS 

GOTO500@ 

IFSP=37THENCS="0":GOTO11OG | 
IFSP=38THENCS="00":GOTOLIG@GELSE1LI1OG ‘° 
CLS 

PRINTCS 

PRINT a 
PRINT"ALL BETS ARE LOST" 

PRINT" YOUR BANK IS NOW="INT(BA) 
FORI=1T010:NEXT 

GOTO50@ 

P3=BA 

IFSP>=N1ANDSP<=N2THENBA=BA+ (36/L1)*S1 
P3=BA-P3-Sl 

P4=BA | 
ITFSP>=N3ANDSP<=N4THENBA=BA+ (36/L2) *S2 
P4=BA-P4-S2 

P5=BA 
TESP>=N5ANDSP<=N6THENBA=BA+ (36/L3) *S3 
P5=BA-P5-S3 

P6=BA 
IFSP>=N7ANDSP<=N8THENBA=BA+ (36/L4) *S4 
P6=BA-P6-S4 

SQ=ABS (INT (SP/2) -SP/2) 


P1L=BA © 

TFSQ<>@ANDAS="0"THENBA=BA+2*O i 
P1=BA-P1-0 | 

P2=BA 

TFSQ=8ANDAS="E"THENBA=BA+2*E 

P2=BA-P2-E 


IFSP=1THEN2G00@ 
IFSP=3THEN200@ 
IFSP=5THEN200@ 
IFSP=7THEN200@ 
IFSP=9THEN200@ 
IFSP=L2ZTHEN200@ 
IFSP=1L4THEN200@ 
IFSP=LOTHEN2000 
IFSP=18THEN 2000 
IFSP=1LOTHEN20@0@ 
IFSP=21THEN200@ 
IFSP=23THEN200@ 
IFSP=25THEN200@ 
IFSP=27THEN200@ 
IFSP=36THEN200@ 
IFSP=32THEN200@ 
IFSP=34THEN2009 
IFSP=36THEN200@ 
Fl=1 

P7=BA 

BA=BA+2*B 
P7=BA-P7-B-R 
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1695 
2000 
2602 
2005 
2190 
2290 
38 90@ 
3691 
3682 
3605 
3696 
3887 
3819 
SIA) 
393G 
3849 
~ 3050 
3869 
3065 
30679 
3974 
3875 
388 
3685 
3899 
3891 
3892 
3993 
3994 
3895 
3189 
SODO 
5810 
5826 
5830 
584d 
585d 
5SO6G 
587 
588 
5G89G 
519@ 
5119 
51290 
5139 
514 
515@ 
516 
5179 
5180 
5196 
529 








P8=P7 


GOTO300@ 

P8=BA 

BA=BA+2*R 

F1=@ \ 
P8=BA-P8-R-B ; 

P7=P8 

CLS \ 
IFF1=1THENCOLOR3 “ 
IFF1L=8THENCOLOR4 

PRT TY SF oh AO? "SF = PROF I tT" 
PRINT 

T= 

IFAS="0"THENPRINT"Qpps FO oe EW Sek meme 
IFAS="E"THENPRINT"EVENS Bice es 
IFBS="R"THENPRINT" RED Nee eG. Fw cere a 
[TFBS="B"THENPRINT" BLUE SE aia aw Wa ee ee 
IFPS1<>$THENPRINTN1"TO"NO" Bee ee ee 
TPS2<>OTHENPRINTN3"TO"Va4" Oa 
TPS3<>OTHENPRINTNS"TO"N6" So ee 
IPS4<>$THENPRINTN7"TO"Ng" aE nw x wy x 
PRINTTAB (29) ; "TOTAL="INT (7) 

PRINT 

Y SINT"BANK="; : PRINTUSING"###4#.##"> pa 

M=2 

PRIM TS55 . 9 pppoe: ba ar ER sf yf Mik) Pie! 
KS=INKEYS 


I$= INKEY$:X=RND (M) 
M=M+1:IFM>100THENM=2 
IFIS=""THEN3992 
IFIS<>" "THEN3992 
CLS :GOTO59g¢ 

COLOR, (RND (2) -1) 
PRINT@15,"0" ? 
PRINT@13," 1" 

PP LT Ly eyes 
PRINT@9,"3" 

PRIM Tie cy, pra 
PRINT@71,"5" 
PLT] ev, pega 
PRINT@134,"7" 

“RL TG es, ope vl 
PRINT@198,"9" 

PE LAT RS. ogy 
PRIM TSS. op ggg 
PRINT@294,"j9" 

PPT ALT ies Set ge eae 
PRINT@359,"]q4" 
PRIM T Sc. ap gpog 
PRINT@425,"16" 

PPS De Tepes eg 
PRINT@461,"18" 
PRIM Tbe 3. "Dl" 7, 














"INT (P1) :T=T4+p] 
-+- "INT (P2) :T=T+p2 
"P8:T=T+pg 
"P73T=T+p7 
"INT (P3) :T=7+4+p3 
"INT (P4) :T=7+p4 
"INT (P5) :T=T+p5 
"INT (P6) :T=T+p6 





5219 
522G 
523G 
524G 
525G 
526G 
5270 
5289 
5299 
5399 
5319 
5329 
533G 
5346 
535G 
5369 
537@ 
5389 
5398 
5400 
5589 
6009 
6919 
6049 
695 
7080 
7019 
102G 
70630 
704 
705@ 
7669 
107@ 
7080 
7109@ 
710@ 
7119 
712@ 
713@ 


Pe TT fay! 2 / 
PRINT@465,"19" 
Pe THT. Upgay 
PRINT @437 5°21." 
a a 
PRINT@3/75,°23" 
PP Tedd. Sig" 
PRINT@GS1L2,"25" 
RR CM TRS. ey 
PRINT@248 ,"27" 
Re Lr Tim La. igi] 
fhe DTG Sieh iT! 
PRINT@152,"30" 
PR THT Sa RAE 
PRINT@87,"32" 
BRST. miei” 
PRINT@Z21,"34" 
Pb Th Tie] os. Rey" 
PRINT@17,"36" 
PRINT@235,"ROULETTE" 40 
P=Q 
FORI=1TORND (3) 
GOTO700@ 

NEXT 

P=SP 

COLOR8 

RESTORE 
READN1,N2 
IFNL=999THEN60490 
Pg DRT 
SOUND2@,1 

IF P=N2THEN7@9@ 
PRINT@N1," " 
GOTO7@20 
SOUND3@,3 
FORL=1TO1@OOO:NEXT 
CLS 

COLOR,@ 
GOTO1G19 








71489 DATA47 ,37,45,1,43 72 94273741,4,722,5,194,6,136,7,168 ;8,; 290 ,9 
7150 DATA2Z32 7190 ,264,11,296,12,328,,13,361,14,362,15,395,16,427,217 
716@ DATA429,18,431,38 ,433,19,435:,,29,436,21,4905,22,374,23,343,24 
TLIO DATAST1,25,279.,26,24/52 77 20,290,183 ,29,151,39,119 ,31,,86,32 
718@ DATAS3,33,52,34,51,35,,49.,36,,999 ,999 





Line 
Line 
Line 
Line 
Line 


Line 
Line 
Line 
Line 
Line 
Line 
Line 
Line 
Line 
Line 
Line 
Line 
Line 
Line 
Line 
Line 
Line 
Line 
Line 





EXPLANATION OF THE 


186 
7920 
7898 
7239 
7279 


885 
8168 
8246 
8320 
836 
9110 
39189 
39198 
31919 
31029 
3164¢ 
3105¢ 
31979 
ABOBD 
49G19 
49620 
48930 
4AGG49 
4895 


SHIFT + 0D 
Cray 
CTRL -+ 


CTRL 


+ 


CTRL tr 
(Y/N)? 
CTRL, 
SHIET:. +. U 
SHIFT? “+ U 
SHIET. + -U 
SHIFT :+.U 
CTRE + INV + 
CTRL + INV. t 
CRE + ENVs + 


SHIFT +#4Y"s 
SHLED +--T."s 


INV 


INV 
INV 
INV 


then 


GRAPHICS CODES USED IN THE PROGRAM 


-|- 
-f- 
-|- 
-|- 


TEAL’ 
TEXT $ 
TEXT ¢ 
TEXT’ 


SPACE 


INV: +.. TEXT: 


SHIET. + I 
SHIP2+.,U 
SHIFT + S 
CTRL” + INV 
CTRL +t INV 
CTRL + INV 
CTRL ‘st. ENV 
CTR “ ENV 
CTRL +, INV 


t++etett+ 


TEX Ls 
TEAL S 
TERT s 


Tex Ls 
TEXT s 
TEA Ls 
TEATS 
TEXT: 
TEAS 


POS # 


(SPACE) FOR RESULTS! 
NAME ODDS 

PRESS (SRACE) FOR WINNINGS 

SPACE and SAME PEOPLE BETTING 


PRESS 


# NAME ODDS See 
BETTOR KITTY 

VZ-208 CUP 

PRESS (SPACE) TO PROCEED 


SPACE 1.5PACE . 

SPACE 2 SPACE 

SPACE 3 SPACE 

SPACE 4 SPACE 

SPACE 5 SPACE o 
SPACE 6 SPACE 


jf 
f 


"HO SIOIICHED OFF My. 


IN THE MIDDLE OF AP 


cepa 
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701FH (28703) 
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200 VIDEO DISPLAY WORKSHEET (MODE 0) 
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71FFH |(29183) 


71E0O (29152) 


wet TLL | 
ool | TL 


owe 





VZ-200 VIDEO DISPLAY WORKSHEET (MODE 1) 


7000H (28672) 






4 127,31 


Ww 
= 
™ 
N 
= 
Vv 





77FFH|(30719) 
eee 


O°. Fee eee 
x eX Oe ee A ee 
co” ee 

See 
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Oc eee 
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Pee ee hee ee et ee ee en fe wee 6 6 eek. ake Pk b eek RoR wk Soe ee nel 
Ree nee ne ee al oe on Roel anid bce aed ee aed Re a oe ieee 
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oe ee ee ee eee ek ee Be Be ee ee ee ee eee ee 

Dee ee eee ee ee eee ee ace ene ee ee eR aiaed ee ee a a 

Lad ea 


| penne Sh oi 

mee ~ pe Dd el Nr we 

OC Cee a SE SS Gl es oe eo en a ee ee 

ee ea ee 

ERR ee eR IRS RON PRR eee eh 

See ee ee eee ene eee eee eee een eee ee nea ec ee ee ee ee ee 

a ene an eel (EC Be ST is Ss et I TOE et te ft 4 
acy. 
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